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PAG, 2 ACORN NIEUWSIUIT DE FEDERATIE Ì 


Bestuur: 
Voorzitter: 

K. Ottes 
Wilkemaheerd 67 
3736 BN Groninsen 
Telt. B50-417042 


Ciubwinkel: 

N. Stad 

Piataanwes 47 

1544 PB Zaandijk 
Telt. 875 — 289828 


Giro 5244233 
Beide t.n.v. 


Secretaris: 

N. Stad 
Plätaanwes 47, 
1544 PB Zaandijk. 
Telt. 875-2805068 


Hard-waäre cie: 

P. Enrtich 
Roostenlaan 266 
5644 B5 Eindhoven. 
Teit. DAD — 144185 


BANK 52.84.569, 018 
Penninsmeester Acorn computerctub. 


Nuenen. 


Redactie ACORN NIEUWS: 


Penninsneester: 
Th. van Kempen, 
Het Puyven 71, 
3672 RB Nuenen. 
Telt, Bud — 835218 


Redaktie Acorn Nieuws. : 
He Reinders, 
Leeuwarderstraat 8. 
9718 HX Groningen. 
Teif, B58 — 125458 


Bandiesarchieft: 


Rudi van Drunen — hardware 

Frans van Hoesei — assenbler 

Hans Marks - basic 

Henk Reinders = layout 
Redactie Acorn Nieuws: P, 


Postbus 1058 
3704 BA Groninsen. 
Teif 058 — 125458 


Datasheets: 

G. Akkermans. 

Wikke 1 

12735 BR Huizen, 
Teif B2152 — 60234. 


Grevett. 


Swatmstraat 12 
1784 CP Den Helder 
Teit U2238 — 57068 


Drukwerkarchiefi 


F. Monsato 


Biesbosch 153 
8952 VD Zwolle. 


Uiterste datum inteverins copyt 


NR 1. 


DE CLUB-WINKEL : 
Geheusenkaart: 


Minischakelkaart 


Herdruk ACORN NIEUWS 1952: 37 pas. 
Jaarsans 19851 totaal 


ATOM-WARE deel 


Beste: ien: 


13 machinetaal 


18 -12 — 1884, 


16 kByte extra in de ATOM _ 
Schakelkaart; meerdere EPROM's op Axxx (inci. 74LS135) ft. 
Prosrammerkaarts zeit erosrammeren van EPROMs ti. 
Bis Benny printtinct. 


ruim 458 pas. 


Bij Um resionate pennins-meester. 


Rechtstreeks bij de federatieve penninameester, 


voor porto-kosten. 
Archiefdiensten: 
Voor bandies, 


Uw resia iets 
OP weg. 


datasheets, 


ontbreken: 


Cioek EC MSM SSI2RS 
wetenswaard: sheden fl. 


op de RTOM 38 pas. ti. 


EPROMS en aile andere 
verltenins kunt U terecht bij de resionale archiefdiensten 
dan helet het resionale 


tt. SO 03 
40, 39 
21:00 
ti. 42. 58 
fi. 165,08 
6. 69 
fl. 30. 00 
6. 33 


dan f), 4,98 extra 


vormen van dienst 
Mocht in 
bestuur U verder 


PAG, 2 L ACORN NIEUWSIUIT DE FEDERATIE Ì 


Bestuur: 
Voorzitter: 

K. Ottes 
Wilkemaheerd 67 
3736 BN Groninsen 
Telt. B50-417042 


Ciubwinkel: 

N. Stad 

Piataanwes 47 

15464 PB Zaandijk 
Telt. 875 — 289828 


Giro 5244233 
Beide t.n.v. 


Secretaris) 

N. Stad 
Plätaanwes 47, 
1544 PB Zaandijk. 
Telt. 875-2850508 


Hard-waäre cie. : 

P. Enrtich 
Roostenlaan 266 
5644 B5 Eindhoven. 
Teit. BAD — 144185 


BANK 52.84.569, 016 
Penninsmeester Acorn computerctub. 


Nuenen. 


Redactie ACORN NIEUWS: 


Penninsneester: 
Th. van Kempen, 
Het Puyven 71, 
3672 RB Nuenen. 
Telt, Bud — 835218 


Redaktie Acorn Nieuws. : 
He Reinders, 
Leeuwarderstraat 8. 
9718 HX Groningen. 
Teif, G58 — 125458 


Bandiesarchieft: 


Rudi van Drunen — hardware 

Frans van Hoesei — assenbler 

Hans Marks - basic 

Henk Reinders = layout 
Redactie Acorn Nieuws: P‚ 


Postbus 1058 
9704 BA Groninsen. 
Teif 058 — 125458 


Datasheets: 

G. Akkermans. 

Wikke 1 

12735 BR Huizen. 
Teif B2152 — 60234. 


Grevett. 


Swatmstraat 12 
1784 CP Den Helder 
Teit U2238 — 57068 


Drukwerkarchiefi 


F. Monsato 


Biesbosch 153 
8952 VD Zwolle. 


Uiterste datum inteverins copyt 


NR 1. 


DE CLUB-WINKEL : 
Geheusenkaart: 


Minischakelkaart 


Herdruk ACORN NIEUWS 1952: 37 pas. 
Jaarsans 19851 totaal 


ATOM-WARE deel 


Beste: tien: 


13 machinetaal 


18 -12 — 1884, 


16 kByte extra in de ATOM N 
Schakelkaart; meerdere EPROM's op Axxx (inci. 74LS135) ft. 
Prosrammerkaarts zett erosrammeren van EPROMs ti. 
Bis Benny printtinct. 


ruim 458 pas. 


Bij Um resionate pennins-meester. 


Rechtstreeks bij de federatieve penninameester, 


voor porto-kosten. 
Archiefdiensten: 
Voor bandies, 


Uw resia iets 
OP weg. 


datasheets, 


ontbreken: 


Cioek EC MSM SSI2RS 
wetenswaard: sheden fl. 


op de RTOM 38 pas. ti. 


EPROMS en aile andere 
verltenins kunt U terecht bij de resionalte archiefdiensten 
dan helet het resionale 


tt. 50,03 
40, 49 
21:00 
fi. 42. 58 
fi. 165,08 
6. 69 
fl. 30. 00 
6. 33 


dan f), 4,98 extra 


vormen van dienst 
Mocht in 
bestuur U verder 
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pas À vit de federatie 

pas 3 inhoud 

cas Gh — 5 waar kunnen we naar toe 
pas 6 - 5E uit ge resiobtaden 

pas 7 vit de federatie 

pas B - 9 p-charme schakelsoft 
pas 19 — 17 de bbc kaart Ì 

pas 17 contro! karakters naar de printer. 
paa 18 — 21 de bbc Kaart 2 

paa 22 — 26 ath en rtty 

sas 27 — 29 morse kursus 

pas 30 — 3ú shapes 

pas 35 — 45 Kas 


pah bh — 45 macro's 

pas GE — 47 zelf statements maken. 
pas 48 escher demo 

pas 43 — Sl de nieuwe schakel kaart 
pas 52 - 53 distist 

pas S4 —- 59 de r a b erint 

pas 6D - 63 lineaire netwerk analyse 


pas Eh — EE monitor wijziging 
pas GE correctie op kasboek. 
pas 67 tarth Woord erint 


pas BE - 71 bootstrap 
pas 72 — Th etet 


pag 75 — 77 vdu kaarten. 

pas 77 — 79 atom toon 

paa 80 — 87 extra statements 
= cert. 
— pas 


— spa & lin 
— enable & sound 
— auto-init 
pas 85 — 9E p-tun 
pas 9 — GE intikken en runnen maar 
— stippetlijf 
… aCH5 
= synchro 
— math 
— racerups 
— ramtest 


ACORN NIEUWS Uitsave van fed. acorncomputersiubs n/b 
verschijnt 6 — 8 keer oer jaar. 


De redactie saat er van uit: dat insezonden copij afkomstia is van 
de inzender, tenzìó uitdrukkelijk iS vermeld. 

Het is ondoentijk voor etke inzerndine nâ te gaan of het ontwerp uit 
sen andere publicatie afkomstig is. Anonieme copij Wordt zodoende 
geweigerd. 

De aansprakelijkheid voor auteursrechten voor ingezonden stukken 
jìat dus bij de inzender. 
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2 DEC 1984 
28. 08 UUR 





E DEC 1984 
28. 20 UUR 


7 DEE 1984 
13.58 UUR 


8 DEC 1384 


18 DEC 1954 





ie DEC 1984 
8.28 UUR 
N.B. Iedere 





behalve op de donderdas voor de Tesioavord 


12 den 1984 
28.08 UUR 





15 DEC 1364 
13.58 UIR 


13 DEC 1984 
20.08 UUR 





15 DEC 1384 


15 DEC 1984 


18.358 UUR 


i8 DEC 1984 
8.03 UUR 





19 DEE 1984 


19 DEC 1934 





TE JAN 1985 
8.30 UUR 





4 JAN 1985 
13. 50 VUR 


7 JAN 1984 
28.09 UUR 


7 JAN 1385 


DELFT E-KAFE 
GEBOUW ELEKTRO TH WIJK 


BRABANT GEBOUW B. R.A.N. 
HEUVEL 7 


LIMBURG ZAAL HUIVENEERS 
STATIONSSTRAAT 25 


DELFT. 


VORSTENBOSCH. 


SITTARD 


LIMBURG DONDERIE t.o. DE SPORTHAL 


DONDERBERGWEG 4, 


ARNHEM t.e POSTGIRO 
VELPERWEG SE-A (keider). 


LIMBURG HEEMKIJNDE MUSEUM 


ST. MARTINUSSTRAAT 12 
donderdas avond Wardt 


TWENTE MEPA-GEBOUW 
WIERDENSESTRAAT 40 


NOORD MUNSTERHOES 
MUSTERHEERD. 


CENTRUM DE LANTAERN 
UTRECHTSESTRAATWEG 4 


DV/GELD WIJKCENTRUM DE BOLDER 
DOBBE 62 
BELGIE OXACO-CEPENBERGCENTER 


BORSBEEKSE STEENWEG 45. 


BRABANT DE WERFF 
V/D WERFFSTRAAT 


LIMBURG CAFE "DE NOR" 
GEERSTRAAT 484 


NOORD 
ACHTER DE GROTE KERK 25 


DEN HAAG EXODUSKERK 
BERESTEINLAON 265 


BRABANT GEBOUW B.R.A.N. 
HEUVEL 7 


LIMBIJRG ZAAL HUIVENEERS 
STATIONSSTRAAT 35 


DELFT E-KAFE 
GEBOUW ELEKTRO TH WIJK 


ARNHEM t.o POSTGIRO 
VELPERWEG SE-A (Kelder). 


M van VLISSINGEN 


ROERMOND. 


ARNHEM. 


BEEK, 


hier een bijeenkomst sehouden 
in SITTARD. 


ALMELO. 


GRONINGEN. 


NIEUWEGEIN. 


ZWOLLE, 


BOECHOUT € BIJ HOVE) 


EINDHOVEN. 


HEERLEN 


LEEUWARDEN. 


DEN HAAG. 


VORSTENBOSCH. 


SITTARD 


DELFT. 


GRNHEM. 





WAAR KUNNEN WE NAAR TOE / UIT DE REGIOBLADEN ACORN NIEUWS [PA 
3 JAN 1985 TWENTE MEPA-GEBOUW 


20.88 UUR WIERDENSESTRAAT 40 ALMELO. 
18 JAN 1985 NOORD MUNSTERHOES 
13.28 UUR MIJSTERHEERD. GRONINGEN. 


15 JAN 1385 BRABANT DE WERFF 
28.28 LIJR V/D WERFFSTRAAT EINDHOVEN. 


1E JAN 1985 LIMBURG CAFE “DE NOR" 


GEERSTRAAT 484 HEERLEN 
1E JAN 19855 CENTRUM DE LANTAERN 
20.08 VUR UTRECHTSESTRAATWEG 4 NIEUWEGEIN. 
1E JAN 19834 NOORD M van VLISSINGEN 

ACHTER DE GROTE KERK 25 LEEUWARDEN. 
REG IOBLADEN: 


TEMPUS FUGIT juni 1984 Carnhem) 
Controikarakters naar de Printer. Communicatie met de BBC. 
Sxrins fuurtie's. Execrmaker. Recursie 


TEMPUS FUGIT Juli 1984 tarnhem} 
controle code's. scroti. Birds. Detinieren van downloadkarakters 
op de star semeni 18-x. wordeark-truck. ROB erint 1. 


TEMPUS FUGIT ausustus 1964 Carmhem) 
ROE print Z. KOPIE. 1200 baud routines. Biorithme in chear B. 
Graeh-ram. 


TEMPUS FUGIT september 1984. Carnhem) 
ROE print 5. kontrol karakters naar de Printer. 


TEMPUS FUGIT oktober 1984, Larnhem) 
Edit aansspast voor de teietype. Database. Simpete RTTY/CW 
unter face. 


TEMPUS FUGIT november 1984. arnhem) 
BEC met het Kleine printje. MACRD's. Epromkaartie voor de ATOM. 
De BBC kaart. 


DE CURSOR nr.5 Cbrabant). 
ESCHER DEMO. HULPIE. Temperatuur meten. P-rharme Statements voor 
de inktjet printer. NOISE analyser. Racerurs. 


DATA CHECK nr. 5 Caen haas) 
Interryets. 6502 Tracer. Flaatins Point nieuws. Speten met de 


6547. Wijzisingen in de monttarrom. 

DATA CHECK nr. E Cden haaa) 

Bet zelf maken van statements. Pinaanstuitins eprom’ s. 
Viden-seheusen in cms. Basierscroll. Invert string. spiraal. 
Routine die tekens naar printer telt. Header Disatom, inverteren 


van strings in basic prosrammta. Teverse statement. sion 


E L ACORN NIEUWSJUIT DE REGIOBLADEN 

Statement. Brisnt statement. Grafic window in clear á. GWresar. 
Exec$. Centraer tekst op scherm en seat printerdump. Mem. scrolt. 
Pinfo statement. Statements selon en selott, 











RTOMIX nr. 11 (dert) 
Switch-screen. In de mood. Schuifspel. Teletvoe interface, 
Kopoe, Pron, Window prosramma. Het Set commando. Tekeiot. 


ATOMIX vr. 12 Cdettt) 
Meerkoloms disassembler. Het forth Woord print. Proeramma count. 
Een muziek Prosranma. 


ATOMIX nr. 13 Cdelft) 
CMOS op #1288. 2 muziekprosramma’ s. 


ACORNTJESBROOD nr. 4/5 dubbeinumner. (twente), 

EDIT 64, Gaasrom. Gassdemo. Statement “OPT vit de DOS. ALLTEK, 
DBASE versie 5.08. Sneitist. Een andere dezoderins op de nude 
Schakelkaart. City bomber een sassrom spelletje. Proaram Flow 
Controiler, Decoderen en uitdecoderen. Dos relipcatins met opsave 
van de adressen. BBC basit op de ATOM. SALFAR een nieuwe 
Symbolische assembler. spettetje 3D cubes 

ERROR 34 nr. 4 Cnoordhal tand) 

Het noordholtandse minischakelkaartie. Een vides insana op de 
PHILIPS TX. Ftowcharts. Hoe schrijt ik een proeramma. Newcos. 
Break toets modificatie. Atom-Elektuur interface print. 





BRONS GROEN EIKELTJE nr. & Ct imbura)? 

Jaystiek voor Rhinoceras. Het onderbreken van Basic-prosramma’s. 
Spelletje Kienen. GTHtDc Verklarende woordenlijst. Vertalins 
hoofdstuk 7 manual. Bijhouden van sas En licht. Geheugen 
vitbreiden tot 128 Kb. 








BRONS GROEN EIKELTJE nr. 7 Cl imbura) 
Vertalins hootstuk 1 manval. ATOM 62 kolomskaart. 6582 
Bootstrap. Print routines. Verklarende woorden ijst. 


ROM nr. 4 (rotterdam) 
error codes. Prosramma CATALOG. Aanvutiins ap infomaster. 


ROM nr. 5 (rotterdam) 
Procedure PRotot. Koele voedins. Een simpele epromproarammer. 
Een bank orosramma, Turtie demo. 


DE STACKER oktober (noord) 
ACDS. Uities CMP en BRANCH. Statement afhandeting. Datomix. 
Bisbenny met srote cijfers. Superbars. Diskorabtemen. 


DE STACKER 
P=FUJN, Supe 


„mber Cnoord) 
PY. Hypercube, Screendume NEC PC-S3 





NEWSLETTER ur. & (betse) 

CX-schakeisoft. Voorbeelden van de Edit Tekstverwerker. Overhoor 
en aefenprosramnma. Overdrukken uit tivdschriften. Uitsenzettirna 
Over SErines, 
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INHOUD SCHIJF DECEMBER 1984. 


SCHPCH s280 aFAF 26753 gez AN. nr 7 biz B. 
BECDEMO 8208 C2B2 BOLT EBA AN, ar 7 viz 21. 
BBCSPOL E20 C2B2 DAA DBE A.N. nr 7 biz 28. 
SHAPE 2208 C2B2 B64I4 BE AN. nr 7 biz Fi. 
DESIGN 2989 C2B2 BO7C4 BIE ALN. nr 7 biz 35. 
SHAEDEM S0P0 C2B2 ELLES 828 AN. nr 7 Biz 2. 
ACOS 8208 C2B2 BEGEB B27 AN. nr 7 biz 35. 
Kas 2900 C2B2 VICII SIB AN. ar 7 biz 57. 
GTH ON 2989 C2B2 GASFE B4D A.N. nr 7 blz 25. 
MORSEKU 2988 C2B2 BLOFE @51 AN. ar 7 biz 27. 
HaCR0'S 2908 CZE2 GUI BEZ G.N. nr 7 ulz éà. 
pistIsT 2988 C252 GAESA BEC AN. ar 7 biz S2. 
SPRLIN 2903 C2E2 G@510 87B AN. nr 7 blz Bà. 
CTRL-SC 2 CEE2 GE4AC B7F AN. nr 7 btz 88. 
PAG zeg) CIB SĲSCE BB4 A.N. nr 7 btz 81. 
P-FUNi 2900 C2B2 BATGE BEA AN. nr 7 biz 83. 
P-EUN2 2900 CEB2 80348 BSE A.N. ar 7 biz 23. 
TIMERS 2908 C282 BBLEC 992 AN. nr 7 biz 92. 
AFTER z' Cz57 SHEET BI7 AN. nr 7 biz 335. 
MATH 2980 C2H2 @EZOF DAD A.N. nr 7 biz 97. 
LIDMAATSCHAP: 
Ten aanzien van het lidmaatschap van ge federatie en de contributie 


petatins is een beiansrijk besluit senomen, De contributie dient 
VOOR 15 december 1924 door de federatie te zijn ontvangen om het 
janvari nummer van Acern Nieuws te krijsen. Dak 15 besloten dat 
leden die op 15 februari 1925 hun contributie niet betaaid hebben: 
worden seroyveerd. 

Tevens is in principe bestoten dat iemand lid is van een resio 
wanneer hid zijn contributie aan de tederatie heeft betaald. 


DE ACCEPT-GIROKAART : 

In het vorise nummer treft U de giro-acceptkaart aan voor de 
zontributie van 1985. In verband met het bovenstaande is het 
raadzaam op tijd te betalen. Is Uw betalings te laat dan kunt U 
Acorn Nieuws pas krijsen ma betalina van fi. 4:82 porto en 
administratie KOSten. 

we hebben deze maatresel maeten nemen om te voorkomen dat de 
penninemesester in mei nos bezie is met contributie-innins en het 
daaraan sekoppelde nasturen van Acorn Nieuws. 


DUS BETAAL NU SNEL INDIEN U NDG NIET BETAALD HEEFT. 





U wordt verzacht am bij betalingen aan detfzderatie ats besunsi ede 
te vermelden “Penningmeester Acorn Computerciub te Nuenen. 

Het vermelden van net bank nuumer is GOK noodzakel isk. Wij moeten 
dit vezmek wet doen daar er reeds enige betatinsen zijn 






binnensekomen oP de priverrekening van onze penninsmeester omdat 
men zijn betatingsopdracht onvolledig iuvold. 


VOORRAAD CLUBARTIKELEN: 
Alte clubartiketen zijn momenteel voorradie, zodat de levering viot 
Kan chi =de. 





Lean, 2 | ACORN NIEUWS |P-CHARME SCHAKELSOFT | FRANS LE BLANC | 
P-CHARME SCHAKELSOFT 


Om de P-CHARME interpreter zo sued mogelisk te laten werken iS het 
noodzakelijk de schakelsoft, die op #1008 staat, aan te passen. 
Samengevat moet de Sschakeltsoft als VOolst werken? 


Eerst wordt er setest of er een epram seluckt staat CBIT#SFFF), Het 
“vastzetten” van wen @prom Ssebeurt met het Statement EPROM 
nummer), wetke zich in blok #1098 bevindt. Daarna wordt er setest 
of de P-CHARME voorseschakeld Staat, zo dan worden eerst de 
zeropass-adressen #90-#39 seladen met hun vsprankelijke waarden 
die weggezet waren op #SFID 2. v. 

Dan worden de breakvectoren #202, #207 








zp adres #ABDS en de 








adressen H#IEE: HEF „nn &SFR Seinitia!isserd. Daarna werdt er 
sespronsen naar de P-CHARME interpreter (JMPHADGD). 

Wordt de wedracht niet sevonden in de P-CHARME dan wordt er 
aespronsen naar de breakhandier van de P-CHARME: adres #AEDS. Daar 
Wordt eerst setest of de adressen &IFE en NEEE resp. de waarden #B7 
resp. en U hebben. Ats dit waar iS, en in dit seval is dit zo: dan 


t seseronsen naar #1109: JMPCHIEE).Op #110D staat 
BEO LIL en h wordt attijd sespronsen 

Ats het zen rar 94" is dan wordt er besormen met het schaketen, 
zoniet dan wordt er vervolst met de foutmelder van de P-CHARME 
CJMP#RC4F), Aivorens er geschakeld wordt maar een andere eprom 
warden de adressen #92-#99, die door de P-CHARME sebruikt worden 
tijdelijk opsesiasen oo adres H#9F9P-HIFID. Als er tijdens met 
Schakelen een andere errormeldins ontstaat dan “ERROR 34" dan wordt 
de P-CHARME voorseschakeld en sespronsen naar d vrarhandier,. Wordt 
2 OOk in de andere eeproms niets sevanden dan had dt er sespransen 
naar de interpreter op #1102. 


Wordt er indi 















Het is noodzakelijk dat de P-CHARME box in ramvoet 7 staat. 


En dan volst nu de listins van het schaketerosramma? 


10 REM SCHAKELSOFT voor de P-CHARME interpreter 
20 G=fi00OFREM basisadres 

30 REM schakelbyte: SFF 

48 REM vitbreiding:#118E 

50 DIM LUIE 

Ea P.$2t 

70 F.I=G TO G+#FC Sá: !'I=OiN, 

€8 F. I=OTOIESLLI=OEN 






0 F‚1=0TOisP=0+E CE 

18A\ init 

118 BIT#SFFF;EVC LLO 
15@\setockte zprom 

138 LDADLL 1 ELSE: STARRE 
148 LDADLLt 2/ 2565 STARZDT 
152 LDA#&SFFF:JMP LLE 

160 


17D\Ki ik t in P-CHARME 
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1EO:LLS LDARSFFE 














+28 CMPB7IBEALL is JSRLLLG 
20a:Ltt LDAGHRE + STA#ZOT 
LDAAHDSG START 23 ENELL7 
2üD\zer zervpaarradressen P-CHARME wee 
250: LDXOR3 
27O:LL7 LOA#ID, (1 STAHIFID: X 
zen DEX:BPL LLT 
230\sa schaketent zet serst de breakvertor swed 
508 LDADLLIA25E STAEL 
318 LDRALLI/ 2565 STA: 
328 LDAA#FF : STASSEFF 
ZED:LL4 LDXBRFF:TXS 
358 INCHIFFF:LDASSEFF 
zE2 CMP97 + BECLLE 
378 STA#BEFF 
580 LDAA#4Fs STA 





390 LDAS#AC ; STA 
4lO\niet sevondel prins naar #1102 
AEO:LLS JMP #iÌ 
GEG:LLE STAKBFFF 
450 LDA#ABOD: CMPAHADs BNELLS 
460 LDARADA 1 : CMPOHEF : BNELLS 
4TO:LL7 JMP#HAGDE 
GBGILLE JMPÉCSSS 











SQP\error tijdens schakelen 
PLA: PLA: STAD 
CMPO#SEIBEGLLG 

530 JSR Lt16 


S4D:LLID JMPHAC4F 
SEB\niet sevonden in P-CHARME:JMPCHEEE) —) #1100 
57O:LLi1 PLA:PLA:STAO 






5e CMPD#SE + BEGLLE: BNELL 10 
5RO\niet sevonden in SEIDEKTE ZPTOM 
E1@:LLiE PLA:PLASSTAG 

Ez8 CMPO#SE: BNELL 12 

EE& LDAD#CI: STAEZG 

640 LDAAHDS: STAHZOZS BNELLS 


ESD:LLIE JMP#CIDE 
g6B\subrout ines 

E7B:LLt4 LDXOHF 

E9D:LLIS LDA#IFSD, X5 STAHID, X 





718 DEX:BPL LUIS 

128 LDAAD; STARTEE 

750 LDABEL 15 STAHT 

748 LDAD#BZ: STA 

150:LLIE LDAD7:STAHIEFF: STAHEFFF RTS 
T7OAEN. 

7870 @=0 


198 ?Q=K4DIP COH ZEEF 

800 HiP+4I="SCHAKELSOFT P-CHARME V 1,0" 
812 P=P+L, P5?P=0 

828 P=ki1005L BEG LLiis di P. SE 

820 P.” "SCHAKELSOFTROUT INES HERDE EN EP 
848 P. “INTERPRETER OP: HILDA" 

SSA E. 
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bbc-kaart 1 


Nu de Prijs van de ATOM/BBC convers;on cara flink in prijs sedaatd 
is (nos maar #73,-), zal het aantal bezitters van deze Kaart flink 
stu isen. 

Je kunt hem er zo inprikken, nadat de varkens van het lase seheusen 
verwijderd Zijfs en na net aansiuiten van net MNDS sisnaat kan de 
kaart direkt sebruikt worden. 

Inderdaad hij werkt. 

Maar toen :K probeerde om mijn RRM/RON-Kaart te sebruiken, deze zit 
oe de bus. bleek dat er nos maar een Klein deet van het seheusen 
buiten de bus zat. Ni, ®408 — #79D9 en HEDBO — HFDOG. Het 
betansrijke sedeeite #48098 — HEOWD zat niet weer buiten de bus. en 
van #7C80 — M4BEE was ook seen RAM meer terbeschikking. 

Nu was er in A.N 2 van 1983 we! een optossins seseven, maar dat 
vond ik niet naar mijn wensen: Omdat er dan net stuk seneusen van 
#2000 — #7400 weeviel, 

Na (ans puzzelen heb ik een zeer bevredisende oplossina sevonden, 
ter een maximum aan moselijkheden en een minimum aan onderdelen. En 
iedereen kan niermee uit de voeten. 

De seneusen indelins van de RTOM/BBC ziet er als volat uit # 


ADRES ATOM BBC 
BOO-B4LDD pase © case B 
2408-2080 buiten binnen 
2990-4400 binnen yi ten 
4000-6003 buiten beeldscherm 
EDA 7000 buiten utititr 
7008-2580 buiten 1/0 
5508-ALDD beeldscherm interpreter 
A0BD-BBOU utility interpreter 
Eooe-CALE 1/6 interpreter 
CAos-DLOU interpreter extension 
D30-ELLD FP-rom extension 
EO08-F A20 Dos DOS 
F890- 10030 moni tor monitor 


Hiervan is het sebied #400A-HEMDO in de ATOM-mode weer bruikbaar 
buiten de bus. Er is 8 K RAM van #73DE-#400D, HICOO-H4DDE wordt oP 
de BBC-kaart sestapeld: en de bus Wordt dan sedisabled, maar in de 
BBC-mode is deze 1 K niet tvesansketijk: dUS als hier iets in de 
ATOM-mode insezet wordt, dan kan net in de BEÚ-mode niet sebruikt 
en veranderd worden. 

Het sebied #0903-#5088 Kan weer op de schakelkaart sebruikt worden, 
en dit zelfde sebied is in de BBC-mode selijk aan #EODZ-#700D. dus 
dan kan er RAM van de seheusenkaart sebruikt worden. 

Bij deze verandering wordt de bus ook seehabled voor het sebied 
#CQUD-KEUBD, dit seidt voor zowel ATOM als BEC-mode. (Ik heb zetf 
de ELEKTUUR RAM/ROM-kaart en wil nos weleens met de interpreter en 
FP experimenteren.) 


it 
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DE VERANDERINGEN 


= 











ar de veranderinsen zijn @ IC's nodis: nt. 3 IC 18 74588 
IC 19 74588 


HET GEBIED #2C20-#4000 
Eede eethoek ieakalsiahasandd 


Voor de 1 K-RAM vitbreiding, wordt een varken genomen die vân de 
ATOM-print is verwijderd: en deze Worden dan op de Plaats van IC 6 
& IC Stor IC 5 & IC 7) seolaatst. 

Nv wordt van ein B ic 12 (VIII) een draad selead naar pin 15 ic A3 
CIK). Cdit is de ingans van een inverter die noe niet ingebruik is.) 
Daarna wordt ezen draad van pin 12 ie 13 €X) maar pin S ic 19 
Ssetead. Ook wordt er een draad van eunt VII (A15) naar Pin 18 ic 19 
3elesd. Van pin 8 ie 19 wordt een draad naar pin B van de varkens 
geltesd (dit is de seisecttijn) en naar Pin û en/of 5 van ic 16 
KEI), Cof ats vaor HEXXX en HDXXX de bus gs@disabled blijft: moet 
ein 12 ic 14 uit de voet sebosen worden en dan moet de draad van 
pin B ic 19 hieraan sespideerd worden. Deze inaans van ic 14 is noe 
niet in sebruik en tiat aan SV.) 

Ais dit sebeurd is: dan hebben we in de ATOM-mode RAM op het sebied 
#5COD- #4 000. 


UITLEG 





In de BBC-mode dient pin 7 ic S ats setecttiijn voor het sebiâd 
#1CDD-R2DDD. Als dit sebied seselerteerd wordt: dan wordt deze lijn 
laas en A1Z is dan ook laas. 

In de ATOM-mode dient deze zelfde lijn voor het aebied #5C90-#4008, 
maar All is bij setectie hoos. Door ny de setecttijn te inveteren 
en dan aan de insane van een NAND-poort te Koppeten, en Aij aan de 
andere insan3 van deze NAND-poort te Koppelen: kunnen we in de 
ATOM-mode de stapetinsthet varken) selecteren. 

Ais 1 insans van sen NAND-poort laas is: dan is de uitsans hoos. 
Rts aile insansen var een NAND-poort hoos zijn, dan is de uitsans 
laas, Dit is dus alleen het geval als in de ATOM-mode het sebied 
#20 wordt seselecteerd. 

Dan nt. is Ait hoes an de setectiijn laas: maar na de inverter 
hoos, dus bei insarsen van de NAND hoos en de uitsans laas. (zie 
fis. 5) 





HET GEBIED #H4G@0-#500D IN DE ATOM-MODE 
B eeehhh ch hd hk kh ht a aaa add did 





Hiertoe aebruiken we pin S ie 12 (dit is in de ATOM-mode de 
Setectlijn voor het sebied #á033-#800E en in de BBC-mode voor 
#EDLG-KCALDD), en verbinden deze met pin 182 van ic 19 (deze 
NAND-poort sebruiken we zo ars inverter). En we aebruiken ook de 
BEC/ATOM setecttijn ount VI en verbinden deze met Pin 12815 ic 19 
dus ook een inverter). 

Pin Z ie 19 saan aan pin & ie 19, en pin 1t ic 19 saat aan pin S ic 
138 =n ein 6 ic 18 saat aan ein 19 ic AE. 


BCDEN NIELWSIDE E&H 





BUS DIS/EN-ABLE, HAXXX, WEKKX, HDXXX 
Khan de tid aad 


Voor diesene die het sebied NAXXX buiten de DUS sebrviken Lin 
ATOM-mode), wordt van punt I een draad seiesd naar pin 1 ic 1B, en 
er wordt gok sen draad selesd van pin B ic 16 (IV) naar pin 1E (ec 
18, Tevens wordt de in fissuur 2 aanssgeven printbaan verbroken. Cdit 
is de verbindins asin B ic tú naar pun 1 ic 15) 
Pin 5 ic IB saat aan pin 4 ic 18 pin 11 ic 1E saat aan pin S ic 18 
en pin E ic 18 saat aan ein 9 ic 18. Van pin B ic 18 saat een draad 
naar pin Ì je 1E EXIV), 
Op dit moment zitten buiten de bus 2 

#46 ADS 45ABA ATOM) 

#EOOD-#700D (BBC > 

#AD2D-#5A8D £ ATOM) 

#EODD-#F BAO (pe; de 
Indien uv verder Miets buiten de bus wenst te hebben, dan dient u 
pin 2812 ice 1B aan 5 V aan te sluiten 
Voor #CXXX buiten de bus: verbreken we de op fis,5 aanseseven 


Brintbaan, verbinden pin 5 ic 1& met pin & ie Î& en lessen zen 
draad van Punt II naar pin 2 ic 18: nu is het sebied #CXXX buiten 
de bus. 

Voor H#DXXX buiten de bus: verbreken we de vo fie.5 aansseeven 
printbaan: Verbinden pin 4 ie tl met pin 5 vC 14 en lessen een 
draad van Punt III naar pin 12 ic 18 vnv is het sebied #DXXX buiten 
de bus. 


Indien beide gebieden buiten de bus komen, dan is het gemakkelijkst 
om pin B ic 19 met pin A&S ic 14 XII) te verbinden. 

Voor diesene die de schakelkaart hebben doet zich het Probleem voor 
dat het sebied #BCXX (waar het Schakelbyte zit) nos buiten de bus 
Bebracht moet worden. 

Hiertoe wordt een draad van pin 7 ic 49 op de ATOM-erint naar ein 2 
at 12 ic 18 selesd, en de schakstkaart Wan 1n de ATOM-mode weer 
aewoon sebruikt worden 


UITLEG Cgebruik fig, 4) 


#4029-#E00D 

In de BBC-mode is de selectitin voor BBC/ATOM hoas: dus de pinnen 
IZRIS van ic 19 ook: dan is de vitsans van deze NAND-poort Jaas:dus 
pin 5 ic 19 is taas en daardoor pin 6 ie 13 hoog. 





Als we in de ATOM-mode zijm: dan zijn pin 1ERIT ie 19 laag: dus pin 
Il ic 19 is hoos, Wanne nu sen adres in het sebied 84009-#5092 
Wordt gekozen: dan worden pin I&2 ic 19 laas: pin 5 ie 19 dus hooer 


dus ook pin 4 ic 13, 

Pin 485 ic 139 zijn beide hoos als in de ATOM-mode een adres in het 
Sebied #4000-#EUDB wordt sekozen, dus iS Pin 6 ir 19 laaa en dus 
Pin 18 ic 1B ook laas. 

De poorten van IC 18 zijn AND-poorten: als van een AND-poort 1 
insans (aas is, dan is de vitsans ook laas. Dus doordat pin 19 laas 
is, is pin 8 Dok laas. 


DE ANDERE GEBIEDEN 
Ats een van de punten III ot III taas wordt,rormaal zijn de 
setertiiinen hood: dan heeft dit to sevòle dat pePeeun 9 ic j8 laas 








wordt en daardou k Pin 8 ic 18. Pin 8 ic 14 (IV) is hoos ais zen 
van zien insansentB stuks) laas is, 
Dit «s net seval als £ 
Pin Ì ‘aas iS 3 aebied HIAXX CATDM), HIAKX CHBCT) 
pin Ì laas is z Sebied #IBKX CATOM), HLGKX CEBC) 
Bin 3 : gebied #E2A0-#CO0A 
ein 6 laas iS : azbied HDXXXCirndien aansestoten) 
5 1 
& Kd 





Ph sebied HEXXKL indien aanaesloten) 
oen gebied #EXAX 

ein 11 ‘aas is sebied #4000-#EA0D 

Pin 12 laas is : sebied HICXX 








Zadra een van Sebieden wordt aansesproken: wordt pin 18 ic 18 
haos en dus pin & ice 18hooa, dus na de inverter Coin t ie 13 ins 
Pia ZF ie 1E vit) laas.Dit heeft tot sevola gat ie 5 oe de 
ATOM-print een lase insars heeft, dus de uitsans is hooe en de bus 


aediSabied, 

IK hoop hiermee aan hoeveelheid mensen van dienst te zijn. Ik hoop 
DoK dat het verhaalt avidelijk iS: macht dit niet het sevat zijn: 
dan noor uk dat sraas: zodat ik in het volsende ACORN NIEUWS de 
onduidelijkheden wes kan nemen. 





ADRES WIJZIGING VOOR DE GEHEUGEN IC's IN HET LAGE GEBIED. 


Door de BEC kaart worden de ic's anders seadresseerd. 


het zit nu ats volst : 
IC nummer ATOMadres BRCaares 





11 3009-SEFF 1902-12FF 


12 & 

12 & A5 2C38-2FFF 0CAR-AFFF 

14 & 15 2809-2BFF 2802-0AFF 

IE & 17 2468D-27FF DA08-D7FF 

18 & 13 2008-2EFF DAELE 

Si à SZ 2329-0403 1C38-1FEF 

24 WORDT 4 RZAD-AFFF E8AD-EFFF 

IK heb dit even erbij wilten vermeiden, zodat iedereen die deze 


Kaart arbruikt volledie op de hooste is. 


Alte ounten waar nieuwe verbindingen tiasen: Zijn met romeinse 
cijfers aanszseven: in figuur à is te zien waar van bestaande 
punten op de print Sebruik is aemaakt, dit zijn doorsemetalisrerde 





saldeereunten. 


figuur 1 
IEe's 


chena ATOM/BEC convesion card. 
1 EIIZE 1E K BBC-BASIC interpreter 
2552 6 K BBC=conversion monitar-ROM 





1 74157 E naar 4 myitietexer 
PEEN EK in 


È 
i 

t 25e 4 K extension-ROM 

ì 2532 4 K extension-ROM HAXXX CHCKXKD 
ï Zita 1 K b-bits-RAM 

i Sila 1 K A-bits-RAM 

ì zilla 1 K 4-bits-RAM 

ï z114 1 K b-bits-RAM 

È 74158 Z naar 8 chiesetecter 

ï 74153 EX 2 raar & chipselecter 

ï 74157 8 naar 4 muittielexer 
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pe ACORN NIEUWS [PRG. 4 
ie 14 7430 ix 8-tneut-NAND 
iz 15 7420 UR 2 ineut-NAND 
iz 16 7408 bx Z-input-NAND 
ie 17 7432 bw Z-ineut-OR 
PL 1 = ATOM PRINT 
PL 2 = ATOM PRINT 
PL 2 = ATOM PRINT 
PL 4 = ATOM PRINT 
fisvur 
overz zomeonenten zijde met de aansiuitpunten en ev. 
verbrekinden. 
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tiauur 3 


Ssrhakelina t.b.v, seheusengebied #2CXX. 
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vm 3 (ro) 
Pen 6 TC 
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tisuur 3 


overzicht SOtdeerzijde met de aansluitpunten voor de aanpassingen, 


FIG.3 








Ona) warmt, 


SOLDEERZUDE 


fissuur 6 
schakelins van ic 1B&19 t.b.v 





sturins ATOM-BUS 





ic 18 7408 bx E-ineut-AND 
ie 19 7400 bx 2-input-NAND 
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tisuur B 
aanstvitsnsen op ic 18 en 19, 


CONTROLKARAKTERS NAAR DE PRINTER 


Komt het by U wel eens voor dat U een "2" naar de printer moet sturen? 

Of een "1479 

Dit geeft altyd problemen, daar in het eerste gevaì de datastroom naar 
de printer afgebroken wordt en in het tweede geval de komputer naar de 
P"PAGED mode” schakelt. 

De volgende simpele truc voorkomt dit. 

Stuur inplaats van een " een "131" naar de printer en inplaats van 
een “14”, een "142", Een getal dat #80 (128) hoger ligt. 

Wat gebeurt er nu? By een "35" zyn de databits Ó en 1 hoog, aile andere 
zyn laag. By een "151" zyn de databits ©, 1 en 7 hoog. Deze zevende 
bit ziet de komputer wel, maar de printer niet, aangezien het het 
hoogste bit niet 1s verbonden met de printer. (De printeruitgang is 
Jbits, de komputer intern is Bbits) = 

De komputer ziet dus een "151" niet als een "3”, 
maar de printer wel. Op deze wyze kunt U alle 
kontrolikarakters naar de printer sturen. 





ee ee ee 3 decimaal 
ao0o001i1 = 3 dec. printer 

10000011 = 151 dec. komputer 
aGaO0O0t1 1 = weer 5 dec. printer. 


(een "1" en een "ISL" in 7- en Bits binaircode) 








A.PETERS REGIO ARNHEM e/o 


Kalm voert nij ean dialoog met z'n computer 
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bbc-kaart 2 


Een zeerste Kennismaking, 





De montass van de kaart bracht miet veel moeiliskheden met zich 
behalve dat de pootjes die in de IC-vaetses moeten komen wat aan de 
dikke kant zijn, 

Het verdient aanbeveling om de kaart zudanis ‚n te 
het toetsenbord de keuze tussen Atom en BEC ze man 





SUNEN dat vanaf 
vS. Hae dit on 














zijn werk saat Staat soed beschreven in de biybehorende manual. 
Mochten er mensen zijn die (net als ik) Gait hard: 9 Zijn Sewecest 
om ter beveitisins de BREAK-tvets in serie t schakelen met de 
CTRL-toets, dan doen zij er handis aan om ev. de CTRL-taets de 


REPT-toets te 9ebruiken als selector. 

Zo vitseureid &ls de marual het inbouwen van de kaart beschrijft: 
zo summier is de behandetins van de BBC-BASIC met zijn typische 
Vitzonderinseties omdat de taal nu draart oe de Btom. Het likt 
seen overbodi (wet prijzige!) luxe um de orìsinete RBC 
handleiding alsmede de Aovanced User Guide aan te schatten: wil men 
en Tedelijk sébruik van alle geboden mosetijkheden Kunnen maken 
Uiteraard is men er niet in sestaasd sen zomolete BBC na te 
bootsen: het srootste deel van de taal is echter onseSchonden daor 
de omzettins heen Ssekomen. 

Wat de ‘echte Atomist' zal missen zijn de vele handise utilities 
die inmiddels onderdeel van de Atom zijn Sewordernt zoals daar zijn 
zen disassembler: een hexdump, 1200 Baud etc 

Echt bezwaartijk vind iK net semis van aansluiting ap eer 
diskvdrive, Dit is zonder soldeerbout mt. NIET mogelijk. De 1509 
Baud routines zijn ooit wel in te bouwen daar er is voorzien in zen 
socket voor een extra EPROM op #COAU. Om HEX en DIS in te bouwen 














zat moeitijker zijn: Omdat (mis) het vitbreidines-erotocal miet 
bekend is. 





zommardo Seeft een rafelis aeluid omdat ons speakertie 
ander inter ruet aansestuurd wordt an iS Me ie „igentijk niet 
bruikbaar. Een bijkomende eisenaardisheid is dat soms (bij het snel 
@lkaar opvolsen var SOUND-opdrachten???) een orogramma onderbroken 


wordt onder wvitvoerins van een "NEW. Ais u niet meteen een OLD 
geeft :S uw arosramma beschadied !!!! 
Opvallend is ook dat seen lowercase (geinverteerde) letters kunnen 


worden ingevoerd | 

Tot zover de nesatieve kanten 

Een arDot voordeel vind iK de Mael: s;kheid variabelen „en 
betekenisvolle naam te seven. Eveneens is bet elezierie dat 
BEC-BASIC sneller is in vitvoerins dan ons ATOM-ERSIC, welk laatste 
overisens bij SEbruik van de diverse Pecharme Mosel ijkheden toch 
wel sen stukje aan snelheid heeft ingeboet (laat dit v alstublieft 
niet van sebruik weerhouden!), Bovendien is de wpslae van het 
prosramma in het geheusen efficienter teen token voor 
sleutelwoorden als PRINT,FOR,NEXT etc. LRV. de volledige 
ASCII=tekst). Dit laatste heeft ook een positieve invloed op de 
eKerutiesnelheid van Uw Prooramma’ s, 

Heel plezierie iS ook de betere intesratie van het type REAL (Atom: 
Floatine Poiret) in de taal. Dit werkt veel soepeler, Daarbij is ook 
de snelheid weer een stuk hoger: zoals heel duidelijk te merken is 
aan de SIN en COS functies 








Tat slet sen paar tips & weternswaardisnt 
kk de 'normate' tekstruimte is HEX E04 
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Tot stot een paar ties & wetenswaardisheden: 
* de ‘normale! tekstruimte is HEX 820 
* deze is op te vrasen en te veranderen met de variabele PAGE 
* BEÛ HEX in BBEC-mode komt oversen met 2690 HEX in Ateom-mode 
* ats u vaak switcht van BBC naar Atom, dàn is het handis Om in 
BBC-mode vanuit tekstruimte HEX 902 te werken (een Atom BREAK 
beschadiet dan seen bytes ersens midden in het BEU Prosramma). 
* BBC-erosramma’s zijn voor de Atom niet LIST-baar 
* sen BEC-prosramma is meer Kwetsbaar dan zer Atom prosrâmma: 
waarschijnlijk Omdat ger resel ook de tenste in bytes Calis derde 
byte op een regel, direct achter het resetnummer) wordt opsestasen. 
* ot zen waarde in HEX afsedrukt te krijsen : 
Atam: PRINT &CDUNT 
BBC : PRINT "PAGE (met 7 is SHIFT pijttje) 
ik raad U aan de beschrijving van het PRINT-statement soad te 
bestuderen. 
* om „en waarde als HEX in te voeren: 
Atom: !'#EDOAHABCDEF 
BBC : '&40OU-HABCDEF 
* de Atom sluit een reset af met een &1 
naormaat sesproken zelf een LineFeed (SID) bij, 
Ze niet in BBC-mode:s aan het e@ind van de regel wordt een LF 
gevolsd door een CR sestuurd. 
Tod mijn Printer had dit tot sevols dat tussen @lke resel een 
blanke resel verscheen, 
Het veranderen van een presettina van de printer heeft dit 
verholpen. 
* in BEC-mode is het niet nodis om controt=codes te escapens CTRL L 
LIST saat sord | 
* de resellenete bedraagt Max. 237 tekens, iets meer dan de 54 van 
de Arom dus. 
* onderbreken van een LOAD commando met de CTRL toets heeft (alleen 
bis mijn Atom?) een aantal onvoorspelbare reacties tot sevols: het 
uitprinten van een aantat KEYWOrds, Soms Sevolsd door het in de 
srafische mode springen en een ’hans-up' van het systeem... 
* Uit de beschrijvins in de manual van de pseudo-variabele LOMEM 
maak ik ap dat deze ongeveer dezelfde functie heeft als het 
byte-paar 235 en 356 bij de Atom ml. het bijhouden van het adres 
van het eerste vrije byte na de sedimensSioneerde strings en arrays? 
LOMEM btijkt door DIMmen echter niet te veranderen en is steeds 
selijk aan TOP!?2:7:24 
* het blijkt niet mosetijk om in MODE 7 (CLEAR 9) te plotten: een 
verdwaaide 'W' verschijnt op het Schertt. 
» END is niet meer af te korten! E. wordt opsevat ats ENDPROC. 
* OLD is nu wet af te Karten: Q. 
* vergaet niet dat de vertrouwde puntkomma als statement-separator 
is vervansen door de dubbele punt. 
* de spaties die met automatische reselnummerins sesenereerd worden 
Koen: NIET in de rese) terecht 








de printer maakt er 





Oridanks het feit dat deze Kaart duidelisk „en aantal tekortkominsen 
heeft: denk ik dat deze Zich toch een =isen Plaatsie binnen onze 
Atom selederen Zal weten te veroveren. 
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18 REM 'SPOOL' BBC-BASIC-PROGRAMMA 
28 REM NAAR TAPE OF NAAR GEHEUGEN 
50 

48 OSBPUT=&FFD4 

SO OSWRCH=&FS4F 

68 WRCVEC=&B20E 

78 LF=1D:REM CODE LINEFEED 

88 CR=1E:REM CODE CARRIAGE RETURN 
98 BASE=8BD 

100 TEMP=LB2 

118 

128 STORAGE=E1 DOD 

138 !'BRSE=STDRAGE 

148 

158 DIM ASMXZB 

158 FOR PRASSxX=B TD 5 STEP 5 

178 Px=ASMX 

188 T 

138 OPT PASS% 
208 « SPOOL TAPE 


218 CMP LF 
228 BEG SKIP 
258 JSR OSBPUT 


268 « SKIFP JMP OSWRCH 
250 Natetetntenentetetenententoneet entente 


258 „ SPOOLMEMORY 


278 CMP HF 

288 BEG SKIPAGAIN 
230 STY TEMP 

08 LDY #8 

z18 STA (BASE): Y 
528 INC BASE 

58 BENE NOCARRY 
348 INC BASE+1 


358 .„NOCARRY LDY TEMP 
ZED » SKI PAGAIN 


378 JMP _OSWRCH 
zen p | 

338 NEXT PASS% 

42e 

418 REPEAT 

420 CLS 


430 PRINT“ 1: TAPE“ 

440 PRINT“ 2: MEMORY" 

458 PRINT"UW KEUZE 7 “i 

4E@ CHOICE=GET-48 

478 PRINT' 

488 UNTIL CHOICE=i OR CHOICE=2 

490 

S2D IF CHOICE=1 THEN DUMMYFILE=OPENOUT “DUMMY": SPOOL=SPOOLTAPE 
StD IF CHOICE=2 THEN SPOOL=SPOOLMEMORY 
S28 WRCVEC?G=SPOOL AND &FF 

538 WRCVEC?1=SPOOL DIV 256 

540 END 

5 
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DIT IS EEN HANDIGE UTILITY WANNEER MEN EEN BEC-LISTING IN LEESBARE 
VORM NAAR DE ATOM-MODE WIL TRANSPORTEREN (DIT Om DE TOKENS TE 
OMZEILEN) 

VAN ELK TEKEN DAT GEPRINT WORDT GAAT DE ASCII-CDDE NAAR TAPE OF 
NAAR HET GEHEUGEN IK HAD DIT NODIG OM EEN BEC-LISTING NAAR DE ATOM 
TEKST-EDITOR TE 'SPOOLEN' 7 VANDAAR 


GEBRUIKSAANWIJZING: 
* LAAD DIT PROGRAMMA IN EEN LEGE TEKSTRUIMTE (ERGENS BOVEN "TOP" > 
MET PAGE=ÄHHHH 
NEW 
LOAD "SPOOL" 
RUN 
* ALLES WAT HIERNA GEPRINT WORDT KOMT NAAR KEUZE: 
1) OP BAND ALS 'LOSSE’ BYTES/STRINGS 
2) IN HET GEHEUGEN (BIJV. GRAFISCH: &4280 EN HOGER) 
IN ATOM-MODE VINDT U DIT DAN TERUG VANAF #8200 
* UITSCHAKELEN MET 'BREAK' CRUIG MAAR EFFECTIEF) 


18 REM DEMOPROGRAMMAATJES BBC-KAART OP DE ATOM Z1-18-"Bá4 
28 PROCHALLO 
30 Av=l5 
48 FDR Ix=8 TO 28 
5e PRINT Ix%,FNFACULTEIT CI) 
68 NEXT 1% 
70 MODE @ 
88 FOR X%=ED TO 5 STEP -5 
20 PROCSINUS £X%) 
188 PROCPAUSE (1883 
118 NEXT X% 
129 END 
138 DEFPROCHRLLO 
148 PRINT“BEC GROET ATOM" 
158 PRINT“WE ZIJN TENSLDTTE BROERTJES" 
1E8 PRINT"NIETWAAR P"1" 
170 ENDPROC 
188 DEF FNFACULTEIT (FAC) 
190 IF FACH(Z THEN =1 ELSE =FACHAFNFACULTEIT (FAC%-1) 
208 
219 DEFPROCSINUS STAP) 
228 CLG 
238 SHIFT=5IE 
248 MOVE D, SLE 
258 FOR GRAAD%=d TO 262 STEP STAP% 
2EBDRAW FNHORSCALECGRAADA), SHIFT + FNVERTSCALECSIN RAD GRRAD%) 
278 NEXT GRAAD% 
288 ENDPROC 
230 DEFFNHORSCALE £X) =X#i269/TE0 
380 DEFFNVERTSCALE CY) =Y#SIE 
I18 DEFPROCPAÜSE (CENTISECX) 
328 LOCAL TEMPUS 
338 TEMPUS=TIME 
348 REPEAT 
350 UNTIL TIME-TEMPUS >= CENTISECY 
TED ENDPROC 
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gth & rtty 


In A.N. nr. 5 en ook in dit nummer zijn :iistinss atsedukt van 
prosramma's die te maken hebben met het omrekenen van GTH-locators, 
afstanden daartussen: etc. 





Wat QTH-locators zijn en waartoe zij dienen wit ik eroberen u in 
dit epistel viteen te zetten. 


QTH-locators worden gebruikt door radio-zendamateurs. De term OTH 
komt eisentijk vanuit de morse-telesrafie en betekent tetterlijk 
“locatie (positie) van het zendstation”, m.a.w. door het opseven 
van zijn BTH-locator kan de zendamateur vrij exkact aan zijn 
tesenstation doorseven waar zijn station zich bevindt. 


Nu zijn er diverse manieren om een plaats op onze wereldbol te 
localiseren. Een van de (wellicht) meest bekende systemen is het 
Sebruik van lenste- en breedtesraden, waarmee men exact de positie 
kan bepalen. 


Dit zijn echter hele reeksen van cijfers en daarom ers onhandelbaar 
in het amateurverkeer, 

Vooral tijdens wedstrijden tussen zendamateurs, waarbid de 
puntentelling veelal wordt sebaseerd op de overbrusde afstand: is 
een korte coderins van de tocatie zeer aewenst. 

Ten behoeve van het zendamateurisme is daarom jaren geleden: in 
internationaal overles, een vakindelins osemaakt: sebaseerd op de 
tenste- en breedtesraden. Zowel verticaal als horizontaal kreeg elk 
vak een letter (A-Z). Elk vak werd weer onderverdeeld in 88 
kleinere vakken, van west naar oost senummerd van Ol t/m 10, 11 t/m 
24 enz. tot 71 t/m 20. 

Tensiotte werd elk senummerd vak nos eens onderverdeeld in S nos 
kieinere vakjes: Welke de lettes a t/m s kresen Com verwarring 
tussen de “i“ en "ij" te voorkomen doet de "it niet mee). 

Een QTH-locator Kwam er daarmee bijvoorbeeld wit te zien ats + 
CLB2e, Met behuin van deze locator-indelina kon voor amateursebruik 
de locatie voldoende nauwkeurie worden opszaaven (afwijking max. 
ca. 4 Km). 








Met behulp van zen. OTH-locatorkaarten: en tesenwoordis uiteraard 
ook met computerprosramma' s Kan elke amateur nu Vrij exact de 
&fstand tussen hemzelf en zijn tesenstation bepaten. 


U zult zich kunnen voorstellen, dat met de 26 letters van ans 
alfabet ssen wereldomvattend systeem semaakt kon worden: zodat de 
QTH-iocators zich op meerdere plaatsen op de wereld herhalen. 

Oo Zich was dat aanvankelijk seen probteem, omdat het systeem 
vitstuitend op de VHF- en UHF-banden wordt sebruikt, waar de 
overbrusbare afstanden max, 1500-2000 km bedrasen. 

Met de Komst echter van speciate amateursatelltieten is het op deze 
banden echter mok mogel ijk seworden om Wereldwijde verbindinsen te 





maken. En taen besannern natuurligk de erablemen van de 
afstandsbereken ina, Vaer maar sens een bocatar in die bijv. in 
Australie list, maar ook in Europa. Weet de computer verl Wetk vak 


Yr hem is Ct AZ 





precies bedoeld Wardt en wat het verschil ist wi 
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gewoon de locator die hìj moet verwerkeni de computer zal senoon 
afstand berekenen tot het dichtstbijzijnde vak! 


e 


Vandaar dat na veel en intensief overtes een nieuw, wereldomvattend 
systeem is uitsedokterd: dat op 1 sanvari 1885 officieel van kracht 
wordt. Ook dit nieuwe systeem is in principe gebaseerd op de 


tenste- en breedtesraden. De “basisvakken” zijn echter veel sroter 
sehouden. Doch via een extra onderverdelins is men toch oe anseveer 
dezelfde “fijnmazisheid” uitsekomen als bij net Dude systeem. 


E.e.a, betekende wel een extra Jetter in de QTH-tocator. CL@2c 
wordt nu biiv. JOZIEW: toch altijd nos sen soed hanteerbaar seheel. 


Een andere consequentie is natuurtiak ook: dat de oude 
computerprosramma's niet neer gebruikt KUNNen worden, zodat 
samiddels ettelijke prosramma's zijn verschenen voor het omzetten 
van de oude locator naar de nieuwe izie dit nr van A.N,),; het 
berekenen van de afstand tussen de nieume tocators onderling tzie 
A.N. nr 5: StC. 


Ik hove dat dit verhaal U enige duidelijkheid heeft verschaft in 
het hoe: wat en waarom. 

Heeft u toch nos vrasen: et wilt uv wel eens wat meer weten over 
zendamateurisme. -- wel er zijn in Nedertand zo'n it. 230 
zendamateurs: terwijt de sroatste vereniging van zendamateurs ide 
VERON) Et resionale afdelingen heeft. Maan. er is altijd wel een 
atdetins en/of zendamateur bis u in de buurt. 


HULPPROGRAMMA bii *RTTY, 





Op ciubbandie nr. 14 Komt o-ä. het Prosramma ERTTY" voor, hetseen 
in seassembieerde vorm setaden wordt vanaf #488R en dan wordt 
opsestart met LINK #4B8: *RTTY, 

Op zich is dit een bijzonder soed prosramma (atte hulde voor de 
avteur!), dat door verschittende zendamateurs met veel piezier 
wordt sebruikt. 





Zoals welticht bekend: worden teltexsionalen votsens vaste normen 
vitsezonden det.v. 2 tonen mark” en space toon senaamd. In het 
kader van dit verhaalt zou het te ver voeren hier een vol tediae 
viteenzettins daarover te geven. Bis votdoende betanssteliins iS 


het wellicht moseiijk hier t.z.t. nos sens iets over te publiceren 
in A.N 


Wat ik echter zelf als een (serine) beperkina heb ervaren is: dat 
het prosramma van huis uit werkt met oude tonen en 858 Herz shift 
(het verschil tussen de mark en de spacetonen): terwijl in het 
zendamateurisme een aanbevelins van kracht is om vit te zenden in 
nieuwe tonen met 178 Hz shift. Ondanks deze aanbeveling worden 
echter nos altijd de diverse tenen en Shifts door elkaar sebruikt. 
Het prosramma kent helaas (nos) seen variabele insteltins daarvan. 


Om toen te Kunnen “meedoen* heb ik een klein hulPperosramma 
reven dat 5 








= à& Uitteest (PEEK) welke tonen en Shift staan ingesteld 
= b. de moselijkheid biedt ‘dem.v. POKE-instructies) de 


sewenste tonen fn Shift in te ste: len 
= &, na instelling van eea, automatisch linkt naar het 


hootaprosramma (resel 200). 


Dit prosramma moet beneden #2808 of na het hoofderosramma worden 
setaden. Omdat #ZEEO-HIFFF en H#EZDG worden sebruikt door het 
hoofderosramma zelf (voor de memories 1; 2 en DD. 


Om vanuit het hoofderosramma te kunnen serinsen dient BREAK te 
worden sebruikt: waarna via ?18=#,. raar het hulepprosramma Kan 
worden sesaan. 

Gebruikers van P-Charme kunnen na BREAK zonder meer RTTY intikken. 
Diesenen onder u die (nos) seen P-Charme bezitten, dienen “PROGRAM” 


in reset 10 te wijzisen in bijv. "REM", terwijt "COSI" in resel 30 
vervalt. 
COS1 in resel ZO zoret er voor, dat de inhoud van de diverse 


seheusens met 1200 Bd setaden tof sesaved) kan worden. Dit 
statement kan viteraard zonodis door „lk ander 1208 Ed statement 
worden vervansen (bijv, FC: HICOS, etz,), 

18 PROGRAM RTTY (START+SHIFT) 

208=05P. S1EEIS"MARK & SPACE INSTELLING""" 

3OA=D; Bz; C=D; D= E=DIF =D: G=0t HD COS1 

40GDS, 224: P. " “GEEF GEWENSTE INSTELLING :"* 
1 __NEEUW 2 OUD" T 
1 178 HZ 2 858 HZ"'S 
1 NORMAL 2 REVERSE"M 
BOIFT=1ANDS=1ANDM=1 3 A=i 
DOIFT=1ANDS=ZANDM=1 s Bet 
188IFT=1AND 












U 
en 


1SSIFT=ZANDS=2ANDM= 
1EDREM mark insteltins 
17DEFA=LIORB=L 5 INLOESHTI 5 HLODEHTES IHLDET HIT 
18BIFC=1 s KADES =HEL 3 IHLOBENTGS HLDE7 HIL 
19BIFD=1ORE=LORF=1 : 2 
2UOIFG=1t IM4DDSHIEG IHADDERTEs 7 
Z1OIFH=1t ?#408T= #52 7HADEERTI 2HL0E7 
ZEOREM space instetiina 
FIKLBECREL 5 IHLDEDERTG ; PHLDOE RTG 
ORG=LORH=1 5 ? #4 DEC =H: PHLDED=REL 5 PHLOSE=RLD 
ORD=1 5 H4DSTEREL 5 IHADEDHTT st WHLBEERS7 

+24 08T: HADED=HI Dt PHLGEE= HED 

27BIFF=15 #LDECSRTES PHLDED=EHTIG VHADOERTT 

288? #ADBE=HES ;  HADOF HIT 

2398P, '* ;GOS, 520 

ZOOL INKEGOUD RTTY 






















3108. 

SZOREM vitlezen insteliine 

Z30P. “INSTELLING NU :*" 

S4ADP. "MARK 5 "CIHADEE 4E, C7HABEE) -4B, (*H4UDBT)-4E, (IH4UEE) -4B' 


SS0P. "SPACE: “CIELDECI 48: (IHLBED) GE (PRLCTE) UB, CPHLDEF) -4E 
SE0R. 
B CC) HANS SCHOON, POSTEUS 7 





„ VLAARDINGEN, 010-7472904 


HANS SCHOON ACORN NIEUWS| PA 


1OP. $1 1815" ATH-LOCATOR OUD —) NIEUW" * 
ZOREM#*OORSPRONG: ONBEKEND 

EOREM#+VDOR ACORN ATOM BEWERKT DOOR 7 

GOREM++HANS SCHOON, POSTBUS 7920, 2138 JA VLAARDINGEN 
SOREM**TEL. B19-74629D4 

EADIMES, 110, L1D:D=4 

TODIMTTES sE. N=2T0SIDIMFIG TTEND =fF ij N.N 

SIN, “OUDE @TH-LOCATOR “SE 

SUIFSN=""iP, SIZKTOPGE 

100B=0?D-ESIC=R? 1-64 D=0IZ-48I EDI 7-48 FAES 
LiBIFE(BORTLAURD (DORE (OORF (OORLENR (SP. $7° “ONJUIST"" +G, 50 

















»BCE/S)+IG/ 15), LES 
1526. 
1SUHA=AVIG. 210 


ZODAA= 
EAB CAA IN HEI KEND KCE CHE-K) HED G= } AM=KBE AST KT 








270E IFAMLOs A= 1204 AMG IFDEL 3 LM=AM-ED 

{M/L 3IHES) 

DZ KOH AM/ EO} M= AM A5 / EDI N=ACAG/ 10) 
N+ES) 5 TT (5) KD 18#N) +45 

re AM+ED 

S2OTT CE) AC AM/ ZE, ID) +55 

SE0P. “NIEUWE LOCATOR : * 

ZADF. Y=DT053P, STTCY) iN, 1020 

ZAP. '' IG. ES 
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1OREM #OIT PROGRAMMA BEREKENT DE AFSTAND TUSSEN £ NIELME 

2OREN wer WERELDWIJDE” GTH-LOCATORS, ALSMEDE DE ANTESERICHT ING 

ZOREM +KOORSPRONG s ONBEKEND 

4OREN *OOR ACO ATOM BEWERKT DOOR : 

SEREN ++HENS SCHOON, POSTEUS 7G20, 3138 JA VLAARDINGEN 

EOREN HrTEL. 613-7423204 

POP. S12$15" AFSTAND wa GTH LOCATORS" 

SOD IMAGE s#=19 

Mr IN. "EIGEN was QTH LOCATOR *$O 

180GOS. d5 IF $Q=" BGP 

LOP, SMER 347 5e 

128aIN, “ “us Q 

139GOS, d; IF $Q= 

1427211: 

1567.n: IH KCOSKHCOSND 

16E =(C-ATRCEH KEOR CLIN JAPI ZIC ABBO C2HP ID 24, 5D 
zen Kr” 

„OZ 
















AST. 2I5F0 
24360 


ZEOZ= KE, 5D 
2701F2=36032=0 
289P. "ANTENNE :"Z" GRD"“”3G. a 


2d? 65 BL -65 ETEN D=U73-48 EZ? ETF eq 5-65 
300 1FAL GORE GORT GORT > FORD BORD: > SORES GORF< BORLENQISG. & 
CA42G-LEDHCHZHES 124 124DP 1180 

(Bx10-9B4DHF 2441740120 
ONJUISTE LOCHTOR" “27 16 
















MORSE-KURSUS 


1 REM MORIETURSUS ek 
2RÈÉM OORSPRONKELIJK PROGRAMMA OP CLUBBANDJE 15 
SREM WAARBIJ P. FP. -TOOLKIT VEREIST WAS, 
LOREM DEZE VERSIE TBERERKT DOOR HANS SCHODN) IS GESCHIKT VOOR 
LLREM GEBRUIK VAN AXRI/JOSBOX DE P=CHARME 
1ADIMDDS De ° 
15F. I=GTOES DIM NiGDDI=NEN. 
17DIM 65, HSsD=0:C=DIE=DIDIM A255, BESS, AA4O 
_1AF,N=BTO4B: DIM Ki 3 AAN=KEN, 
S5ze0; T=Dt IHBEOCE HEEE R=H2DO0 FONS. k: GOS 
307 #DERT=AFP; 1 UBSO2TL t R=HBED2 
Sep. SL 23 IN. "SNELHEID IN WPM C5-B EN 12) "U 
S2IFU) 12 OR UCS G. SB 
S4IFU=5 5=9:G.62 
SSIFU=6 5=83G. 62 
S5IFU=7 8=73G. 62 
S7iFy=8 85-646. E2 















7BGOS. r 

7SHGDS. 5: GOS. 53 F. W=1TO4BF WAIT EN. 

8a0=A: P. $ED 

SQBIFO() 155 DU: GOS. (2045) +O=0+ 1 ZeZt1t P,$9 





192E. 

150X=S3LI. 20. Pp 

229605. 1; GDS. + G05. K: GOS. K; GOS. 13605. 156. Pp 
225605. | +605. Ki GDS. K+ GOS. K3 GOS. K;GOS, 150. p 
230605. k; GOS. t 5 GOS. K+ GOS, 1: GDS. KIGDS. 150. P 
235005. 1; GOS. Ki; GOS, Ks GOS. 11605, K70. p 
24BG0S. 1: 608. 15 GOS, +GOS. ::GOS. ' +6, P 
245G0S. Kk: 608, 1; G05. 1 $GOS. 1 +0. P 
258605. Kk: GOS. 1; GOS, ::G0S. +6. P 
255605. Kk: GOS. Kk: GOS. 1 :GOS. 146. ep 
258608. k; GOS. Kk; GOS. ks GOS. K; GOS. 1:60. Pp 
265605. k: GOS. K; GOS, KI GOS, K5GOS. K5D. P 
278605. 1 + GOS. K3 GOS. K+ GOS. KOS. K4G. P 
275605. 1:G0S. | +G0S. K1 GOS. K+ GOS. k56. P 
288C0S. 1; GDS. 1605. 1; GOS, K; GOS. kiG. p 
285505. 1; GOS, 1 +G0S. (+ GOS. 1+G0S. KiG. P 
305605. |; GOS. k GOS. K+ GOS. K4 GDS, 136. P 
515605. K; GOS. Ki: GOS. 14 GOS. ++ GOS. KF GOS, k7G. P 
225005. k; GOS. | :G- P 

338608. 1; GDS. K+GOS. kK$ GOS. K5G. Pp 

335608. 1: GOS. k: GOS. :: GDS. kt 6. P 

348605. ks GOS. K5G. p 

345605. 
352GOS. k: GOS. K+ GOS. 1; GOS. K5G. P 
353cos. 1: GOS. 15605. Ki 0. p 
<EAGOS. K3 GOS. K5 GOS. K+ GDS. K:G. DP 
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ZE6SGOS, K+ GOS. K3G. p 

572GOS. Kk; GOS. 1: GOS, 1; GOS. 13G. p 

375G0S. 1: GOS. K; GOS. 150, p 

S80GOS. Kk; GOS, (: GOS, Ks GOS. K5G. p 

ZE5GOS. | :GOS. 15G. e 

330505. t: GOS. jp 

385G0S. |: GOS. OS. 146, p 

4BB5DS. K:GOS. 15 GOS. 15605. K5G. 2 

485GOS. 1: GOS. 15 GOS, K5 GOS. 150. p 

4&18G0S, K; GOS. |: GOS. KI G. p 

4&15G0S. K; GDS, K3 GOS. KS G. p 

420608. 156. o 

425605. Ki GOS. KS GOS. 1: G. p 

45AGDS. ks GOS, Ks GOS, K+ GOS. 14. op 

4&55GDS. Kk: GOS, 1; GOS, 136. P 

44DG0S. 1:GOS. Kk; GOS. K5 GOS. |; G. p 

44SGOS. 1: GOS. Kk: GOS. 1; GDS. 1; G. p 

450GOS. 15 GOS. 1: GOS. K5 GOS. K5G. p 

ESS5R. 
100BpX=SxKiLI, Gr T=T+13 R. 
181SrZ=0iP, $12 
1DIEIN, “WILT U EEN CURSUS OVERZICHT “S&H 
1D17IFSHe" J"ORSH=" IA" GOS. o 
1OtEP. "NORMALE PRUZE IS 2*° 
1O1SIN. “WELKE PAUZE KIEST U"KGIFK(2 G. 1019 
182BIN. "WILT U EEN NIEUWE LES SAMEN-"" "STELLEN “S&H 
1O24IFSH="JYORSH=" IA" Gan 
1OSBIN, “WELKE LES KIEST U (1-8) "I 
18E2IFIS OR ICt G. 1020 






















185AF=40 

1060IF I=1 G, 1100 
iOELIF I=? G. 1220 
1862IF I=3 G.1 
18ESIF I=4 G. 1480 
10E4IF I=5 G. 1520 
1OESIF I=6 G. 1608 


iG5EIF I=7 G. 1700 

18676. 1820 

11BBDATR"E“, P It, oge, pe, 5e 

11BSP, #12; REST, ;F. I=BTO4 ; READSAAI ;N. 
t118F.E=1TOF 

1120D0 B=A. R‚ XS; GDS. at U. C=55 GOS. biN. 56. t 
1200DRTAT", ep, OP, De, « 

1210P. $12;REST, +F. 1=2T09s READSAAI ;N. 
1219F. E=1TOF 

1220D0 B=A, R‚ #10; GOS. as U. C=53 GOS. biN, 56. t 
1SDBDATA*A*, “D", "Br, "je, PE 

1S1BP. S12IREST, :F. T-OTO14 3 RERADSAAI ;N. 
1S15F.E=1TOF 

152DD0 B=A, R‚ X15: GOS. atU. C=55G05. biN. 36. t 
L4BUDATAYN", “IJN, ge, Myn, u ze 

1410P. $12: REST, ;F. I=8TD1 3; READSAAI :N. 

14 15F, E=i TOF 

142000 B=A, R‚ £29; GOS, at U. C=54 GOS. LIN. ;G. t 
1SBRDATA" 2“, vr, rg, ve, wgn 

1S18P, $12;REST, ;F. I=OTO24 + READSAAI ;N. 
1S1SF.E=1TOF 

1520D0 B=A. R‚ #25: G0S. a+U. C=5: GOS. biN. 56. t 
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+READ$AAL;N. 








1E1AP.$1 2: REST, :F. L=BTOZ! 
161S5F,E=1TOF 

1E28DO B=A, R. A70: GOS. a U 
17DBDATAURE, TEN, OO MT, 7 
1710P.$1 2: REST. ;F. L=OTOZ4 : RERADSAAI EN. 
1715F.E=1TOF 

172000 B=A. R. GDS. a+ U. E=55 GOS. biN. +0. t 
182BDATA" v/e 

1818P. 31 „3F, I=0TO38; READSAAI EN. 
1ELSSRAACEI) =", N 

i819F.E=1TOF 

182900 B=A. R‚ #40: GOS. atU. C=55 GOS, biN, 5G. t 
20BGaP. SAACH) 1C=C+1$ BA+LENCA) =$AACH) HR. 
20100P," “ID=Dt13CEBISAHLENGA)=" 1 
20IFDeS D=OiP. ' 
2B3ER. 

2108tP,' “TYPE SPATIE VOOR START" LI. HFFESIR. 
229BoP. B12 

SP. tetesrafiecursys 
10P. "DE LESSEN OMVATTEN DE VOLGENDE" “TEKENS: “ 
EISHS" 


=53 GOS. biN. 3G. t 





























TMO." 
aDB1 3 
Nu9wv7rr 
2eEwWa4r 
GK LP C4 
RF XJ ALT 
zZ@evYvr,rr? 


250AnREM NIEUW 

251OP. "HOEVEEL TEKENS ZIJN HET"+IN.G5IFG) SG 5. 2510 
2528P. “WELKE TEKENS ZIJN HET?" 

2530F.WEBTOCG- 1) FP. Weis EN. SDDWEN, 

Z5EDSB=" "iP. B1EIF, E=iTD4D 

2578D0 L=A. R‚ XG 

2580P. SDDL? +C=C+1 5 BE-LENCB) =$DD CL) + U, Ce5 


2E588P. * “}D=D+1s C=O BEHLENCH)=" * 
ZE1SIF DeS D=BiP." 
2E2ON. 5P.' "TYPE SPATIE VOOR START"iLI, KFFES5 GOS. 5 GOS. 5 





2521. Wei T0483 WAITEN. 

256500=B5 P, 30 

2640IFD(155DO0: GDS. (90#5) 30=Dr1sZeZtisP, #9 
2E45IFT K=235=43 GOS. €: GOS. e+E. 
2E650IF Z=58 Z=0iP, * 

ZEEOU, D=15 

2673E. 

2708560S. 1: GDS, ki; GOS. | +505, KI GOS, 156,0 
2800eGDS. Kk; GDS, : + GOS. KFGOS. t+ GOS. KG. P 
iLI. Ge R. 

O3 X LI. OiR. 
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shapes 


Aansezien ik nosat vaak aan net exeerimenteren ben met srafics en 
sräfic=shapes en de P-chaârme eprom seen staandaard SHAPE statement 
heeft: was een van de eerste. statements: die ik zelf witde 
schrijven natuurlijk een. SHAPE statement, Met het SHAPE statement 
Wordt een tabet uitgelezen: waarin srafics Zijn opsestasen. 


Wetnu: dit statement heb ik semaakt, en het werkt. (naar mijn 
menins) vrij aardis. Het principe van het statement heb ik ontleend 
aan het SHAPE statement vit de ACORNSOFT SOFTTOOL. Het verschil met 
de meeste andere SHAPE statements zit hem in het feit: dat je 
a.h.w. eën cUrSsor bestuurd, Om de Shape te tekenen en niet m.b.v. 
een aantal poke's in het seneusern waarmee de afzonderlijke bitjes 
worden sedefinieerd, 


Het voordeel van deze wekwijze is o.a. dat de shape niet besrensd 
is: men zou zetfs shapes van een volledia scherm kunnen definieren. 
Daarnaast heeft dit statement het voordeet dat men tijdens met 
stortten van de shape de plotmode kan wijzisen Cnamelijk MOVE: 
CLEAR, PLOT of INVERT), zodat men shapes kan opdelen in 
“subshaps's", Vooral dat laatste schijnt soed bruikbaar te zijn. 
Het nadeel van deze werkwijze is dat vooral voor kleinere shapes de 
benodiesde seheusenruimte ietwat oroter is, 


Om de shape te definieren maken we, zoals sezesd: sebruik van een 
cursor besturing. Dit seschiedt met de volsende codes: 


= geen bewesing 

cursor naar rechts 
cursor naar rechts boven 
cursor omhooe 

cursor naar links-boven 
zursor naar links 

cursor naar links=onder 
zursor naar onder 

cursor naar rechts-Onder 








Plot mode CLEAR 
plot mode PLOT 
Plot mode INVERT 
ptot mode MOVE 


OOP ONM UDE 





Dit zijn á-bits code’ 5, dat betekent dus dat we twee 
besturinsstode's per seheusenbyte kunnen opslaan, Om het einde van 
een shape aan teseven dienen we de laatst byte @ te maken (dus 8 
bits). Om een shape te definieren hoeven we eenvoudig deze 
byte-waarden te bepalen en deze in het seheusen te “poken”, 
Voorbeeld: de volgende setallen definieren een vierkant: 

#CH HIT WEI, HIL, HLT, #77, #75 855, KID, HOO 


De defi ie besint met een #&C om de Platmode aan te seven: in dit 
aevat is sekozen voor de INVERT mode dat is vooral handis om 
raderhand de shape weer 'uit te vegen” 
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Het SHAPE statement heeft de volsende syntax? 
SHAPE (startadrasì:{(x coord,), (y zoord.) 


Hierin is het startadres het adres waar de eerste shape-byte 
staat: de x- en y-E0Oordinaten spreken voor zichzelf. Het 
SHAPE-staement is in alte srafische mode's te sebruiken. Eeen dine 
is aversens nos wet van balans: alhoewel ie het al vrij snet zetf 


zuit ontdekken: de cursor besturing werkt zo: dat het punt, waar de 
ursor vandaankomt sepctot wordt: dus niet de plaats waar de CUMSOr 
staat. Dit is feitelijk heel tosisch echter het kan in het besin 
nosat vremnd OVverkomen. 

Vaar wat betreft de snetheid van het plotten van een shape: de tijd 
am een euntie te PIOtten is ca. BE ms voor „en Kteire shape @n Ca. 
D,35 ms voor een srotere Shape. 





Dan volst hier de source van het statement? 


15 PROGRAM SHAPE. STAT 
20 REM ERIC SNELDERS 
20 DIM Lt173FOR I=0 TO 17iLLI=#9ISINEXT 1 









48 P :GOSUB a 
53 P GOSUB a 
EB $T="SHAPE"; T=T+LENCT) 
70 ? LO/2SERHERIT? 1=LLDAESEI TI TREO TTE 
Ti 1=RA 
145 P,$2 
118a:E 
120:LL0:JSR HCEEUIJSR #TEELIJSR #CBBCIJSR #C2T1GJSR #CBBC 







JSR #C4E4 
LDX HO4IDEXSLDA #1E,X3STA #SCILDA #25: X5STA HD 
DEX:LDA #1E: XI STA #SA:ILDA #25, X:STA HSB 
DEX:LDG #16, X:STA #BAILDA #25,X5STA HBIJSTX #04 
178 LDA B#00:STA HSE 
TEB:LLIJLEY AHOUILDA CHEO), YICMP BROOFBNE LLIE:JMP #CSSB 
19G:LLIG:LSR AiLSR AFLSR AFLSR A:JSR LLS 

LDA (#80), Y:AND BHOFSJSR LLS 

INC #EU3BNE LLISINC #BIGJMP LLT 
:LLS:CMP AHDTIENE LL4IRTS 
sLL4SCMP @#ZA:BNE LLS:LDA @#20:STA #5E:RTS 
D:LLSICMP BEOB:ENE LLGILDA AHOIISTA #SEIRTS 
250:LLE:CMP AHACIBNE LLIS:LDA 2#02:STA HSEIRTS 
2SS:LLISSCMP O#ODIENE LL7;LDA A#FF:STA #SE:RTS 
ZEB:LL7sPHAIJSR LLIS:PLA:CMP @#A1:BNE LUS:INC #5A:RTS 
27D:LLEICMP A#DZIENE LLS: INC #SA3 INCHSCHRTS 
ZELILLISCMP BHDEIBNE LLIDSINC #ECGHRTS 
290: LLIDICMPOHAASENE LLILGING #5C:DEC #5A:RTS 
3OO:LLilsCMP BRZSIENE LLI2SDEC #5AGRTS 
Z1B:LLI2ICMP B#AEIBNE LL1J:DECHSAs DECHSC: RTS 
E2B:LLISICMP OHD7IBNE LLIGGDEC #SC:RTS 
EEO:LL14GGCMP DHZEFEBNE LL175 INC #5A: DECHSC 
ZAO: LL17IRTS 
ZS0:LL1S:LDA#SE: BMILL17 
260 JSR #F678E:RTS: A 
SZORETURN 








Om zen nadruk van eisen sepookte shape's volat hiet een demo 








































prosramma Welke wiitekeuriae debbetstenen op met scherm plot: 
18 PROGRAM SHAPE-DEMO 
zö S=#7000 
20 
4B REM VIERKANT 
5@ A=SIS!DWIEIJJTBII SG! GEKIEIEITEIFSBRIIITESSEIS! ZW LIL 111 
6D S!'iE=Hilltiil SS! 2OERILILIIL LES! 247777771738! 20877777777 
TO S!'ELeW77777777I 5! ZEEHSESE5S5T SIS! UDERSTSEIETTIS! hAHSSSSSSTE 
88 S' 4840055 5=5+50 
98 
198 REM 1 OOG 
118 B=55S! Betr 2eEe2D iS!S=#0811ET5SFS=S+12 
128 
1308 REM 2 OOG 
140 C=5:5! Bet S'4=#I15E75B73S!Bet2e22221D 
188 S'12=#75B7E2229 5! iG=9DI0E15:5t 5=5+ 20 
218 
220 REM 3 OOG 
238 D=SsS!'QEKLBELEEDEIS! Lel LEISS7IIS! BBI 2222D2 
278 S'12=#1DE15375IS!1E=#772B222235! 20=#0D1 1555552524 
318 
328 REM 4 OOG 
530 E=S5S!'OHZL2ELL0DIS!hH1177SSLZBIS! BEREISEIDES 
370 S!'12=#53553B55IS!'1EHLILD7711G 5! 2O=HIILBI111FS! 24=#7D77555E 
418 S!'28=#7B77777738! 525550771155! SEHID; 5257 
448 
450 REM S OOG 
4ED F=5:5!D=k222222D0IS! beki 177552BIE! BERIIJIDEES 
430 S'12=#535SEB358!1 141D774158! It1B1IL11GS!24=#7D7755EE 
550 S'20=#7B777777IS!'SLEHEESS/711G SS! EESHSSABA4EDIS! AO RODTIIL77 
578 S=5+h4 
5e8 
590 REM & DOG 
600 G=55S'P=#222222D0IS!bett11775SB0S!BFSESIDIJT 
648 S!12=#775SB0SDIS! 1E=FILD3EEL1FS! ZOHSTBAIDISIE! 24 D1S31177 
E88 S'2B=t1l11 111158! SSBO11185S! Zi DO3511775S!4ORBD77777 
720 S!'4h=35117755:S5!GBEN777777DUIS! S2=t1177STRDIS! SEHODTE 
7650 
778 CLEAR 4 
758 M=1392 
790 FOR K=l TD 5 
800 M=M-35 
B18 FOR L=1 TO 6 
820 SHAPE #5008, (L*40-20) , M 
838 N=ABSRND%7 
840 IF N=1;SHAPE B, CL*4B-19) , CM+1) 
858 IF N=2:5HAPE C, CL*40-19), CM+1) 
SE IF N=Z:SHAPE D, CLA4A-19), CM+1) 
878 IF +SHAPE E‚ (L*40-19) , CM+1) 
880 IF N=5:SHAPE F‚ CL*40-19) , (M+1) 
890 IF N=6:SHAPE G, (L#40-19) , CM+1) 
920 IF N=@:GOTO 830 


N. SN. SEND 
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Omdat met definieren van shape's toch wel een lastis karwei Kan 
Zijn heb ik s@tijk Dok een prasramma sesCchreven om shase’ s 
eenvoudis te definieren: DESIGN. Na vun dient men het start adres 
van de schape in te voeren: hierbij krijst men Dok de sesevens van 
zen  eventusel zerder sedefinieerde shape (start en einadres), 
hierna werdt het scherm schoonsemaakt en krije men een knipperene 
zUrsoi. Deze KUrSsor kar men besturen met de toetsen die 


overeenkomen met de cursor-besturinas-codes Voor de Shape: dus 3 
t/m 8 en A t/m D. 


Onder aan het scherm Krijgt men enkele sesevens: namelijk: 


MODE : seeft Piotmode aan. 

KEY : zeeft laatste toets aan ofplotmode. 
RDR : seeft huidis adres aar 

XPOS 1: x positie van cUrsor. 

YPOS : y positie van cursor. 

BYT : het aantal bytes tat ny Toe. 


Verder heeft men nas de volsende “functie toetsen’ 


RETURN 2 besin oP nieuw. 
t t „inde shape. 
SPATIE : omschaketen van srote naar Kieine schapes. 


De maximum afmetinaen van de shapes: die Meb.V. dit prosramma 
gedefinieerd kunnen Worden zijn G2 bij 4E. Dit is over het alsemeen 
ruim voldoende. 


120 PROGRAM DESIGN 

119 S=0iI=-23T=0 

120 

138 PROC SCREEN (A,B,C:D,ErX) 
148 VTABCL4):PRINT “MODE: " 
152 IF A=iD PRINT "CLR “:X=A 
150 IF A=ii PRINT "PLOT"iX 
178 IE 2 PRINT “INVT"5X 
188 IF A=13 PRINT "MOVE"; X 
138 HTABCLZ) PRINT "KEY 7 #"&RIHTABIZZ)IPRINT “ADR: #7 &CD+E) 
z00 VTRBCIS) PRINT "XPUS: "B-4sHTAB(L2); PRINT “YPOS: “C-18 
z10 HTABCZZ): PRINT "BYT: “E 

220 PEND 





248 PROC NIBBLECX:Y) 
259 IF X=lE Y=l 

268 IF X=i Y=i6 
z78 PEND 


290 PROC UPDCOORD (ZiN,M, X) 

508 CASE Z OF 

ZIG) IF NEZ NeN+17K=0 

32042) IF MIEZ AND MGE NeN+is kei M=Mtl 
EIO) IF M(4E MaMrisx=0 

ZB) IF NG AND MGE NeN-13MeMeisX=0 
3505) IF N4 NeN-isX=® 

ZEDIE) IF N4 AND M 18 NeN-13M=M-1iK=D 
ZZA) IF M13 M=M-13X=D 
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Z80B) IF MES AND MD 18 NeN+15K=O3 MeM-i 

338 CEND 

408 IF 2939 AND Zil X=@ 

418 PEND 

420 

420 PROC SHAPLOT (B,C, D,E: X) 

4468 IF X=18 PLOT 15,B,C 

458 IF X=il PLDT 15,D,E 

468 IF X=12 PLOT 14,D,E 

478 PEND 

480 

498 PROC GETKEY (A, Bi X) 

508 DO KEY X 

518 PLOT 14,A,BsPAUSE(2):PLOT 14, A, B: PAUSE (2) 
528 UNTIL XOB 

528 PEND 

548 

SSOiPRINT $12"SHAPE DESIGN" ' 

SE8 PRINT "LAST SHAPE AT :"&S' "NEXT FREE BYTE:"&(S+1+2)’ 
578 INPUT “STARTADRESS :"S5 

520 IF S=: ?#E1=#80: END 

SU I=O:D=1EK=kAs Xe Veldt JAE DDI MAI V=0r Wed 
500 #E1=B: CLEAR @ 

618 MOVEB, B: PLOTS, B, 47; PLOTS: 53, 47: PLOTS, 65, B4 PLOTS: @: 8 
E2BaSCREEN(K, X, Y‚ 5, IE, MD 

558 GETKEYEX, V‚ KO 

E40 IF K=34 GOTO t 

658 IF 2 GOTO m 

SEB IF K=tD GOTO 590 

678 IF FOE4 AND K{E9 K=k-555M=KsGOTO Pp 

E88 IF K)48 AND K(SB K=K-485G0TD p 

690 K=M;GOTO a 

7eApv=XiWEYi Fel 

718 UPDCOORDEK, X, Y‚ F) 

720 

758 IF F=l GOTO a 

748 NIBBLE CDD) 

750 J=J+D*K 

758 SHAPLOT (Vs W‚ Xs Y‚ MD 

778 IF D=i& GDTD a 

788 S?I=J 

799 l=l+t;J=0 

808 GOTO a 

B18tK=0: SCREEN(K, X, Y‚ 5, I+1, MD 

820 SHAPLOTIK, Y, @, 8. 10) 

830 NIBBLECD, D) 

240 J=J+D*K 

858 S?I=JiIF Deislelti+J=05G0T0 t 

860 VTABCB PRINT “SHAPE COMPLETE, PRESS KEY" 
878 LINKKFFEZ:GOTO í 

BEZMMOVES, 9; PLOT 6,5, 18:1PLOT 4: 4, 18:PLOT 6, 11, 185 PLOT4, 11, 17 
898 PLOT 6,11,9:PLOT 4, 18,9:PLOT 64,3 

908 MOVE B,E5PLOT &,0:473PLOT 4, 1,47:PLOT Er 65: 473 PLOT 4,64 46 
318 PLOT 6,63,B5 PLOT 4,62,8:PLOT 6, 1:8 

(A GOTO A 
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KAS 


Het oraeramma KAS arat in deze “moeilijke“ dasen het volledise 
huishoud-budset: zodat men in Staat wordt sesteld een aoed 
pverzicht te krijsen van de dasel ijkse en Jaarlijkse vitsaven in 
het huishouden. Het is gseheet in  P-CHARM basic geschreven en 
zassnaamd “MENU-driven", hetseen betekent dat we steeds vanuit een 
menu met een aantat Kkeuvzenmoselijkheden werken. 








Blteen de eerste Keer dimensionsert en initiatissert het prosramma 
zijn tabelten en ander variabelen, zodat met altijd moseslijk is te 





restarten zonder OPN tuw de data te moeten lader. Het prosramma 
gebruikt hiervoor de locaties #O-#B. Ais deze locaties de waarde 
HFEFFFFEF bevatten “weet” het prosramma dat het om een restart 
Saat. 


Ats het menu verschijnt hebben we de volsende moselijkheden. 


1 — SET DATE: 
De datum wordt seseven in de vorm DD MMM JJJJ en wordt sebruikt bij 
het printen maar ook bij laden en saven naar disk als fitehandier. 


2 — LOAD DATA: 
Laadt de segevens. 


5 — SAVE DATA: 

Saved de Sesevens. 

Het laden en saven Sebeurd m.b.v. PUT en GET 

„ments: adat alieen het a uide Sedeelte van de tabellen Wordt 
weggeschreven of aeladen. De datum wordt sebruikt ter 
indentifirzatie van de fi nn werdt daar to in elkaar geschoven in 
ar vorm DDMMMJJ. Dit zijn 7 Posities ivm disk filenamsS 








4 -MUTEREN: 

Met deze routine is het mosetijk om records in te brensen. Ôls het 
zen record is dat at bestaat dan wordt er sesPpronsen HAAT de 
FOVERZICHT KAS" routine waar de mosetijkheid seseven Wordt om 
records te veranderen: verwijderen en zoeken. 

Web. Het is dus unmoeelijk twee dezelfde records in het bestand te 
zetten, 

Elk record bevat à items t…W, 

OMSCHRIJVING. Dit is de beschrijving van het record. 

KODE. Dit veld kan 4 waarden bevatten met. een "J" voor jaarlijkse 
lasten: een “K" voor Kleding: een "D" voor Debet (dit zijn 
inkomende bedrasen: ef een "C" voor Credit C dit zijn de uitgaven). 
De “Jr en “K" records zijn aak Credit records. HET PROGRAMMA 
ACCEPTEERT GEEN ANDERE WAARDEN. 

STATUS. Dit veld kan £ waarden bevatten nl. een “O" of sen “VY 

WO betekent dat het bedras Wel is overgemaakt, maar nos niet van 
de bank/Giro is afseschreven 
Sy\ petekent dat er Van dit r 
BEDRAG. Dit spreekt voor EZ 
ingetikt. nnure nn). 





cord ten dasafschrift is ontvangen. 
Eh en het wordt in de FP notatie 
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Ais “STOP” wordt insetikt vraagt het erzaramma A het mummer var 
het laatste dasafschrift dat ontvansen iS Efn zeft dan het satda 
dat oP dit dasafschrift zou mosten staan Ais dit niet Kloet is er 
misschien tikfout semaakt en zat je de zoan moeten controleren 





en hersterl 
Er is noa wen extra zaak die hier de aandacht verdient en dat is 








ket “SALARIS record. Als dit vaar de zeerste maal werdt Inaetikt 
dan haalt net Prosramma een aantal z.e. "VASTE LASTEN" naar binnen 
die in wen aparte file op disk Staar Dit zijn records die elke 
maand aariwezig zijn in net bestand: zaals B. Va 
water,aas, licht: huur: huishoudaeld ete, ete. 








Er zijn nos £ speciale records in het bestand. Dit zijn de records 
“KLEDING” en “JAARLIJKSE LASTEN", Dit zijn vaste bedragen die elke 
maand opzij gezet rie Mr warden Zodra „er Tt records Warder 
insesbracht met de kode “K“ of "JJ" dan zorst het oerosramma 2rvoor 
dat deze bedrasen automatisch worden verrekend met de bedrasen var 
de vaste vecords: zodat er altijd en even bedras opzij Wardt 
gezet, Als er in een maand dus meer b.v. Kledina wordt 
vitseseven dan je per maand wegrcet, dan creeerd het Pprosramma eer 
DEBET kledina record 











5 -OVERZICHT KAS: 
Deze selectie geeft een Overz 
heeft een aantal Sub-commardo's, ĳTew. 


18 records per scherm en 








U" — betekent scroit-Up 

Claat de vorise 10 records zien) 
'D" — betekent scrol t-Down 

Ciaat de volsende 19 records zien) 
IEN — is sen FIND-cummando. 


Het erosramma vraaat dan om een zofkaraument of een NUMM2T. 
Als je zen nummer zoekt dan tik je een YN' en direct erachter 
een nummer. Verder kun je naar alte items zoeken door ze 
sewvaon in te tikken. 

— betekent verwijderen 
C het prosramma vraast om een recordnummer). 

= betekent Chanse 
Het prosramma vraast om een recordnuummer en de veranderins 
sescheiden door een “/" teken, Hier moet je het recordnummr 
ALTIJD met 2 cijfers intikken, dus niet “1“ maar "Ol", Ook 
hier weet het Pprosrammna om welk item het gaat dus alle items 
Kunnen veranderd worden. De senise restrictie is dat een 
omschrijving NOOIT met een cijfer mas beainnen,: zodat de 
VAL-functie van basic attijd nul optevert. 











5 — PRINT KAS: 

Print alie records op papier, De “V“-records tinks en de 
"O*-records rechts en aan beide zijden ook debet en credit 
aescheiden. 


7 — OVERZICHT TOTALEN: 
Geeft een overzicht op het scherm van de totalen. 


8 — PRINT TOTALEN, 
Als 7 maar dan oe de printer. 








BN_NIELHSlPAD, 27 | 
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3 — MUTEREN + OVERZICHT SPAARBANK: 





Om ta Kunnen Sparen voor Kieding &n jaartiskse tasten, heb Je 
uiteraard zen spaarrekenins nodis. Maar vo een  spaarakening Staat 
maar 1 bedras. Om nu te weten wat er precies mestaat heb ik dat 


bedras on erieen Sesplitst tuw. SPAREN:KLEDIND en JAARLIJKSE 
LASTEN, In deze Utine KUR ve bijhouden hoeveet er voor deze drie 
mmschrievinsen oe de bank c.a. Surm staat. 

De pedrasen Kunnen zowel positief ais nesatief worden ingetikt, 
zodat wptelten en aftrekken mosetrik is. Uiteraard seeft deze 
raytins cok het totaat-bedras van de spaarreken:ns aan. 

















19- MAANDAFSLUITING: 

Deze voutune doet „en aanta! zaken. Eerst print hij „en 
eindoverzicht van de totaten, daarna saat hij atle “V'-records 
verwijderen Uit het bestand en print daarna sen besinaverzi Tt van 
de tetaten.Morht er het een en ander niet kloppen dan Komt hij met 
de kreet YEDUT" dosrsaan "D* ot restoren SRS, We kunnen nu de faut 
seren asor zen PD" te tikken of we saan weer terus naar de stand 
zoals die was voordat we aan deze routine begonne. Dit is moselijk 























omdat hui de verwijderde records heett vastgehouden in een 
tijdelijk bestand en als we een YR" tikken leest hij deze records 
terya in ens bestand. Waarna we Kunnen Kijken wat er ts fout 


azaaan. 

Ais alles is smedersaan dan houden We atteen de "O0" posten over en 
kunnen we pr hoeveel we naar de spaarbank Kunnen 
overmaken voor de verschiltende records of hoeveel we tekort Komen 
deze maand. 











il- RESTOREN: 











Hie kur bet nodie is nos eens de “V" records 
terusschrijven, 
1 CUMMULEREN : 
Met deze ToUtin nwe evt. records met dezelfde omschrijving 





tot 1 vecord terusbrensen. Eerder heb iK geschreven dat het niet 
moselijk is om twee dezelfde records te hebben: maar dat is niet 
helmaat waar. Het is bijvoorbeeld mosslijk om met de Chanse-routine 
zen record te creeren dat al bestaat, maar ais er een 
“SALARIS-RECORD" wardt aangemaakt krijsen we ALTIJD gubbete 
records. In dit seval Wordt echter altijd deze voutine uvitsevoerd. 








“S-VLAST" is = prosramtia dat de vaste lasten op disk zet d.m.v. 
PUT-statements, zedat het prosramma deze in kan lezen als er een 
"SALARIS" record Wardt aansemaakt. De file heet "VLAST".Het is 

natuurlijk mok meselijk om de vaste lasten in datavreseis in het 
KAS-orosramma zelf pp te nemen, maar dan moet jer als er iets 
verandert: steeds het hele erosramma OPnIieUw saven. 














18 PROGRAM KAS 

28 FUNCTION DATECA) 

ZU $A=ADIEAFL=ED+55 HA+T= EDI 
4D DATE=A 

50 FEND 

ED PROC CLS 
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78 

88 

90 
182 
118 
128 
138 
148 
150 
168 
178 
188 
185 
138 
ist 
135 
134 
195 
196 
208 
218 
240 
250 
268 
278 
288 
2308 
220 
319 
320 
420 
418 
420 
&s0 
440 
458 
4EO 
478 
468 
430 
528 


P.$1 2: ' HEDOO=HLDDGD4DS 74E 1 HDD 
PEND 
PROC DATUM 
CLS:P. $D" “IS DATUM JUIST TIK DATUM OF EOB": IN. $A 
IF MAO KDIED=EAr 
PEND 
PROC FPREXP),F, & 
F=XCL*ABSXP+0. 51) -ABSXP*L 
XIF F{=99:FIFXP(D FIFXP)-1FDOP." "sU.C.)=0- ZP. “-" OT] 
=@iIF F(10:P.O 





PF 
ELSE P. XP+SONXP", 00" 
PEND 
PROC PTABCT) 
Xel. 
WHILE TC, 
Pp," “sY=c, 
WEND 
PEND 
WHILE !BOSFFFEFFFF 
ZERO 
B=6r ZIE VELG REZ IHFESDiL=100 IKEL= HDD 
DIMOOCL) + KELL), SCL), ACZO), BLEG), DEZE), MC2D) 5 VERSFDDI $V="" 
F. I=@TOL:DIMT19: D0I=TiN. 
FD. XBB(L), XTTS, RRS 
F. TOSFARRI=OIN. 
sD=""5$M=" 
EF. 1=BT029; $DOI=""KI ISES? 1 HSE: KBBI=G. BiN. 15 IFZ=LOiR. 
LB=4EFFFEFFF 
WEND 
DO 
CLSGHTABI 1 + P, “stok MENU en" ” 3 eb 
P."*1- SET DATE“’"Z- LOAD DATR"'"E- SAVE DATA"""á- MUTEREN * 
P. "KAS"'"5- OVERZICHT KAS"'"E- PRINT KAS"'"7- OVERZICHT * 
P. “TOTALEN"" “B- PRINT TOTALEN"'"9- MUTEREN + OVERZICHT SPA" 
P. "REN*! “10-MAANDAFSLUITING"" "1 1-RESTOREN"" "12-RECORDS CUM" 
P. “MILEREN"" *15-STOP"" 
IN. $A; Z=VALA 
ON Z GOSUB f, l,krd: cr@s bs br Sr br De X 
UNTIL Z=15 
PHE1=#8D END 











518FDATUM 


520 


RETURN 


EOOk DATUM 
E1O*SETD 


628 
E58 
548 
E58 
EE@ 
670 
E89 
€38 
708 
718 
720 


SA=EDATE LA) 
C=FOUT $AtI=-l 
Do I=E+1 
SPUTC, $00I; BPUTC, K?I 
BPUTC, 5? I: FPUTC, #BEI 
U.S? I=CH"X" 
SPUTC, $D: PUTC, N 
F. I=@T05 
FPUTC, #RRI 
N.I 
SHUT C 
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758 R. 
7481 DATUM 
75G*SETD 
755 $A=$DATE CA) 
778 C=FIN $Asl=-1 
780 DO I=l+1 
739 SGETC,OOI:K?I=BGETC 
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598 S?I=BGETCINBBI=FGETC 


818 U. SII=CH"X" 
E23 SGETC: DIN=GETE 
858 F. 1I=0T05 

848 YRRI=FGETC 


858 NI 

E58 SHUT C 

878 R. 

190DatB=""; SA=SE 





1885 DO CLS 
1818 DO IN. “OMSCHRIJVING 


OF STOP" &A:U. LENA)B AND LENA(25 


1020 XIF NOTCSA="STOP") THEN REM DOORGAAN 
1958 =-1;D0 I=I+15U. $00I=$A OR S?I=#5B OR Tel 


1040 IF I=t:P. "BESTAND 


IS VOL" sERROR 


1852 XIF S?I=#58 THEN $001=$A 





53 


1958 P.“KODE * 

1378 DO INKEY JtU. J=CH"D" OR J=CH"C" DR J=CH"K" OR JECH"J" 
1920 P.&J' sK?I=J 

1099 P. “STATUS "+:DO INKEY J+U. J=CH"V" OR J=CH"O" FP. $J" 55215 
1102 IN. "BEDRAG" SE; XBBI=VALE 

1128 XIFK?I=CH"K" OR K?I=CH"J" THEN REM KLEDING OF J.L. 


KIF $B="KLEDING 
ELSE XBBJ=400. DO 


ELSE REM RECORD 


FIFLBEJ (20+ ABEJ=A 
ELSE IF $A="SALAR 
ELSE G=1;G08. c 
ELSE REM EINDE MUTE 
UNTIL $A="STOP" 
PN" sIN, "TIK NR. VAN 





GOS. ts P."" "SALDO RA 
EPRAATTS) 
LI. #FES4 
1348 R. 
14859D0 IN. “TIK NUMMER" $A 
1520y $000= #BBG=0. 05 KC 





1518 DOSOOH=#00 (O+ 1) + BB 
1529 G=Q+15U. $OD0=""FQ=I 
1525 RETURN 

15302CLSiIF Z=5 G=0 

1548 P.“S OMSCHRIJVING 
1554 GGS.a 











XIFK?I=CH"K" THEN SB="KLEDING" 
ELSE $B="JAARLIJ 


KSE LASTEN" 

=$B ORK?J=CH"X" 
=67:5?J=79+$00J=$B 
* THEN #EEJ=100. 40 


BESTAAT AL 


XIFK?J=CH"D" THEN XBEJ=XEBBJ+#BBI 
ELSE XBBJ=%BEJ-%BEI 


BSXBBJ ;K?J=68 
15";GD5. 0 


REN 


LAATSTE RA. /EOB"’ A: 


IF 2A0O#D THEN N=V, $A 


is * 





„57tV. $A) 0 #58rQ=V. HAI I=G 
585 0=#58 





KBR) 357D=5? DHL HKPQK? (Or 1) 


BEDRAG" 


PHILIP V@N MOURTh 









zINKEY E 


2+E11-HJ;GDS. a 


1638 UNTIL E=CH"R" ER. 
1E4daïF OB O=0 
1ES@ F. I=$SOZ0TO #EICE 5.4: I=2{ 





OZOZDIN. 1 
16EB 
1678 14) AND HALI 

1658 D=B:IFO(IESP. "A" 

1628 P.G" "$000 

1700 2sP. $K?G: 5-5 

1718 FPRCXRBO) 

1720 G=OtisH=H+1 

1720 IF$SOOR="" P‚ "borsten BOT TOM en etdotettorden 1 

1748 WEND 

1758 RETURN 

17EENVTAB 153LI.#FEZZSIN. “TIK ARGUMENT OF NUMMER (NXX) "SA 
1770 IF?A=CH"N"5 IFS? CV. BR+1) 0 CH" X"3Q=V. SA+1FGOS. ar R 

1780 J=G 
1730 Q=-15D0 
1800 1F$000= 
1819 GDS. as R. 

1820p DO 

1820 VTABIS:LI. #FE225 IN. "RECORDNUMMER/ VERANDERING" &A 
1840 G=VALA:U. SO CHYX" 

1850 $B=$A+3 

1868 DO 

1870 XIF LENB=! AND V,$B=@ THEN REM K OF S 

1888 XIF 2B=CH"O" OR ?B=CH"V" THEN S?Q=?B 

1890 ELSE K?q=?B 

1988 ELSE XIF ?B)#59 THEN $000=$5 

1310 ELSE #BBO=VALE 

1938 UNTIL A=A 

1948 GOS. a 

1952 R. 

zigëtF. I=BTOIATTI=G. DiN, It I=Ds IFZ-EIR, 

2118 DO 

2120 XIFK?I=CH"D" 5 ATTO=TTO KRB 

2138 IF S?I=CH"D"SXTTE=KTTE+XBEI 

2148 ELSEXTTISKTT1+4BBI IFS?I=CH"O" ATTEST TABEL 
2150 I=I+1:0, S?I=CH"X" 

2158 KTT4=KTTB-KTTIJKTTS=KTTGAKTTE TTE 

2130 R. 

2200LIF Z7iP. $2627$6E410 

2205 IF ZO 19:$B="TUSSEN" 

2218 CLS;6G0S. t5P. SB" OVERZICHT “sp. s$D'” 

P, “DEBET "4 FTAB (20) 
FPRCATTO) 

P‚" "CREDIT"; PTAB (20) 
FPRATTi) 

P."*NDG TE BETALEN"sPTAB 
FPR(ATT2 > 















OR XBEG=V, $A 
g=J 


=Q+15U, SA=S0OR OR SDOG, 
“sP. "RECORD NIET GEVONDE! 
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P‚' “NOG TE ONTVANGEN" s PTABCZO) 

FPREATTIJGE, * 

XIF ACHTTAL) =D P. “SALDO hi 

ELSEP. "TE KORT hij 

PTAB 20) 

FPRUATT4) 

P." “SALDO DAGAFSCHRIFT"sPTABC20) 

FPRIATTS) 5 P 

XIF ZO 1D THEN REM 

XIF 2407 THEN REM 
P.$10410:G05. nIP. SIOHIJ"NR.R.A. ISYN' iP. $5 
ELSE LI. #FES4 

ELSE 








RETURN 
7$SESE7SESEISLD 


PTAB: 55 iP. &D' 
a BETAALD/ ONTVANGEN" ; PTABC50) 
P. "TE BETALEN/TE ONTVANGEN", $10 
P. "K OMSCHRIJVING DEBET CREDIT “* 
P‚ “RK OMSCHRIJVING DEBET EREDIT'*’ ® 
I=8 
WHILECU2I OO HEF OR WIIO #FF)iD=V? Is P=W?I 
XIF OOHFF THEN REM LINKS 
P‚$k?0" “SDOCO) 
XIFK?0=CH"D" 3} PTABCEO) 
LSE PTABCZ3) 
FPRCABBO) 
ELSE REM RECHTS 
PTAEC4D) 
XIF PORFF THEN P‚, $K?P" "$DOEPD 
XIEK?P=CH"D"; PTABLE1) 
ELSE PTABC78) 
FPRCLBBP3 ;P." 
ELSE P.” 
I=I+t 5 WEND 
F.I=8T0 79iP, “iN, 
Pr &ER 
ZOOBSWHILE 2=9 
CLS;GDS. nr P. 11 
„“MUTEREN TIK:"" "D= KLEDING"' "I= JAARL. LASTEN" "2e 
P. “SPAREN “Ze STOP“ 
DO IN.$AsU. VAL$A) =D OR VALSA(4T I=VALSA 
XIF IOS THEN FIN. "TIK BEDRAG" @t 
KRRIEARRIAAL 3 ARRESARRDIARRLHARRD 
ELSE Z=10 
WEND 
2047 RETURN 
ZOSLasE="EIND";GOS. b 
2OEB F.I=#OFO0 TO #3OFD 5,43 !I=DiN, 13 1=0i JE 
5070 V=tSFZ0: J=0 
2088 WHILE S°JO 88 
2038 $V=$0OIFV=VeL. CV) +1 
3108 ?V=K?JIV?1=52JISTRAEBJ, V+2 
3118 VaVal. (V)+15$V="EOF" 
3 XIFS?JOH4F THEN G=J 
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2438 GDS. yr JeJ-1 

2148 ELSE REM 

3158 JeJel 

Z155 WEND 

3168 J=-1:DUJ=J+15 U. 5?°JEE8 

3178 XIF XTT4)=0.8 THEN SOOJ="SPAREN “5SDO CJ) +7=$MiK? J=CH"C" 
2180 ELSE $D0J="PE KORT “58000 +8=$MEK?J=CH"D" 
3190 S?J=79; ABBJ=ABSKTTÁ 

3200 J=J+15$00J="SRLDO RA "5000 +S=SM 
3210 K?J=CH"D"75?J=BEBBJ=ABSATTS 

3220 FIFLTTS(@:K?J=E7 

5230 GOS. t:$A="D" 

3240 FIFXTT4 (Gs IN. . “FOUT! . DOORGAAN-D OF RESTOREN-R"' ;$A 
3250 XIF $A="D* THEN DATUM 

3258 S$B="BEGIN";Z=8:GOS,. b 

3278 ELSE GOS. ó 

3280 RETURN 

32980 

3309 I=-1 

3318 DOI=I+1sU, $00I="" 

3315 C=FIN"VLAST" 

3520 F.X=l TO I+15 

3338 SGETC,OOX 

3348 S?X=BGETC 

3550 K?X=BGETC 

3570 LBBX=FGETC 

3588 N. 

3538 SHUT C 

3418 KLEDING" + BOS. x 

3420 JRARLIJKSE LASTEN" ;G0S. x 

2438 WMN" 5605. x 

3440 PTT” +GOS. x 

3458 $A="PUEM" ;GOS. x 

5468 RETURN 

352ön 

3558 P‚'" nek SPRAR TOTALEN seth” 
3548 P. “KLEDING “;PTABC20) 

3558 FPRCERRD) 

3568 P.” "JAAR. LASTEN" ; PTAB C20) 

3570 FPRCARRI) 

3588 P.* “SPAREN “;PTABC20) 

3538 FPROARR2I 

3E08 P.” “TOTAAL ";PTAB 20) 

3518 FPRCARRID 

3628 R. 

3EZBj V=HEFDDS J=0 

3640 XIF NOTC$ “) THEN DO 

3650 $0OJ=$V VEV CL. VO +1 

3ES5 K?J=V15? JEV? 3 KBBJ=VAL (V+2) 

3568 VaVell. Vo+rlsJeJtl 

3678 U. $V="EOF" 

3675 ELSE P.412"NIETS TE RESTOREN!!"" ;LI. #FES4 
3658 RETURN 

SESOXC=D I= 1 

3708 DO I=I+1 


71 


XIF $00I=$A5REM 
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XIF C=@:C=1s Jel 
ELSE C „C 
ELSE REM 
U.S? I=CH"X" OR C=2 
WHILE S?1=5?J AND C=2 
XIFK?J OK? Is REM 
XIFXBBJ (XBBI 5 #BBI=BRI-XBRJ +0=J 
ELSEXBBJ=4BBJ-XBBI + Gel 
ELSEXBRJ=XBEJ+%EBI + O=1 
C=85 GOS. y 
WEND 
5799 RETURN 
T54BvOe1 sWetID0D; VE tEF OO 
ZE50 F. I=#8F02 TO #9198 5.4: ! I=HEFFFFEFF EN, Ii I=eii Jel 
3560 DU 0=0+1 
3878 DO I=l+1:4.S?1 
388 IF S?I=#561V? 
2598 DO J=J+153U.S?J=t4F OR SPJ=HTE DR N93 
3300 IF S?J=kAFsW?D=J 
3918 U. V20=#FF AND WID=ÊFF 
2320 RETURN 





=#56 OR S?I=HS8 OR 1) 99 









PROGRAM STORE-VASTE LASTEN 
DIM BED}; SCH, KEE) 
DO A=FOUT"VLAST" 
F‚X=8 TO 5 

READ $6 

READ $5 

READ $£ 

READ *E 

SPUT A, $B 

BPUT A, ?K 

BPUT A, ?S 

FPUT A, XB 











138 N. 

148 SHUT A 

145 END 

158 DATA "HUISHOUDEN", " eye, 1020 

189 DATA "BOND", "€", "0", 20, SD 

178 DATA "WAN", "CU, "0D", 15, "PUEM*, "EC", "0", 60 

188 DATA “PTT",“C", "0", 55 

1S9ADATA "KLEDING": “0100, "JAARLIJKSE LASTEN", "CG", "0", 430 
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__macro’s 


Een macro is een stuk programma dat bis aanroep aen stuk TEKST 
senerzert. Wij sebruiken macro's bij assemblererosrammering en onze 
macro's senereren dus een assembter-tekst welke overigens direct 
aan de assembler wordt aanseboden. Deze maakt #r machinecode van 
Met behulp van met procedure mechanisme dat de P-charme ons biedt 
Kunnen we macro's met zel fsekozern namen maken die we bovendien 
parameters kunnen meegeven! ! 

Kortom: een onsekende luxe. 

Bisaaand „en listina die een en ander illustreert. De aezeven 
macro's zijn ers primitief: het voor id is dan ook bedoeld als 
„en Korte schets van de idee erachter, en ik denk dat de drempel 
naar het rijk van de Assentblerprosrammeri ns wat vertaasd wordt. In 
teder geval is de listins uw bestudering waard! 








Het is moselijk ersens in het seheusen een macro-bibiintheek oo te 
bouwen en de te gebruiken macro's m.b.v. ATTACH en EXTERN (zie 
Acorn Nieuws '84-2) er uit te plukken. Ik ben voornemens hiermee te 
experimenteren en zal t.z.t. verslag doen van mijt @rvarinsen. 











18 PROGRAM 258 STORE (#45, V) 
MACRD PROGRAMMERING z OKT. 'B4 z48 
20 258 TREK-AF UV; R) 
30 GOSUB ms ZEB LINEFEED 
REM DEFINIEER MACRO’ S 578 CHARPRINT CCHY#!") 
40 288 HEXPRINT (WV) 
5% U=#E0 238 CHARPRINF £CH" ") 
EB Ve$Bt 458 CHARPRINT CCH > 
78 R=#B2 418 CHARPRINT EH" ") 
50 428 CHARPRINT CCH"#") 
20 DIM SC 500) 3 45 HEXPRINT CU) 
REM RESERVEER 200 BYTES 4&4B CHARPRINT CEH" “) 
198 REM VOOR MACHINECODE 450 CHARPRINT CCH 
VANAF ADRES S &EB CHARPRINT CCH" “) 
START £5) 478 CHARPRINT CCH"#") 
488 HEXPRINT CR) 
STORE (#22, UD 430 LINEFEED 
STORE (#45, VJ 500 
518 EINDE 
TEL-OP CU, V, Rj 520 
LINEFEED 530 PRINT *'“MACHINE-CODE :""" 
EHARPRINT CH") 548 LINK S 
HEXPRINT CU) 550 
EHARPRINT CCH" ") SEB PRINT "“BASIC 2"°" 
CHARPRINT CCH"+") 578 BASIC-EGUIVALENT CU, V, RJ) 
CHARPRINT CEH“ ") 588 END 
CHARPRINT &CH"#") 598 
HEXPRINT CV) E2OMREM MACRO DEFINITIES 
EHARPRINT CH" E18 
CHARPRINT CH" 628 PROC START (S) 
278 CHARPRINT (CH" “> E32 REM DIT IS GEEN ECHTE MACRO 
288 CHARPRINT CCH"#") 540 REM ZET DE PROGRAM- 
298 HEXPRINT CR) COUNTER P OP DE WAARDE S 
308 LINEFEED E58 REM VERPLICHT !! 
518 EEB P=S 
320 STORE (#22, U) 678 PEND 
658 


698 PROC EINDE 
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708 REM SLUIT EEN STUK 
ASSEMBLER AF 
718 REM VERFLIEHT !! 
7286 
78 RTS 
7401 
758 PEND 
763 
778 PROC STORE (Vo > 
788 REM ZET DE WAARDE Vv DP 
ADRES L 
7995 
s88 LDA aV 
gig STA L 
8201 
E58 PEND 
B48 
858 PROC CHARPRINT £6) 
BEB REM DRUKT TEKEN MET 
ASCII-CODE C AF 
878L 
850 LDA AC 
890 JSR #FESE 
3003 
918 PEND 





358 PROC LINEFEED 

348 REM GENEREERT EEN LINEFEED 

950 

368 JSR #FFED 

5781 

350 PEND 

938 

1028 PROC HEXPRINT (V) 

1818 REM DRIKT DE WAARDE V AF 
ALS TWEE HEX-TEKENS 

1022 

1929 LDA V 

1040 JSR #FEOZ 

10581 

1050 

1078 

1980 

1098 

1183 


PEND 


PROC TEL-OP CM,N, D) 
REM TELT DE INHOUD VAN 
ADRES M OP BĲ 
REM DE INHOUD VAN ADRES _N 
REM EN ZET HET RESULTAAT 
OP ADRES D 


1118 
1128 


11300 

i14® CLC 
1158 LDR M 
1168 ADE N 
1178 STA R 
11281 

1133 PEND 








1220 
1540 


12580 
1560 
1278 
1288 
1233 
15003 
1710 
1520 
1558 
1540 
1350 
1260 
1578 
1580 
1538 
1400 
1418 
1420 
1458 
1440 
1450 
1469 
1478 
1488 
1430 





PROC TREK-AF CM‚N,D) 
REM TREKT DE INHOUD VAN 
ADRES M AF VAN 
REM DE INHOUD VAN ADRES N 
REM EN ZET HET RESULTAAT 
or ADRES D 


SEC 

LDA N 
BBE M 
STA D 


PEND 


PROC BASIC-EGUIVALENT CU: VW, RO 


g=2 


2R=IHIV 
PRINT 

PRINT “ir 
PRINT &2U 
PRINT “© 
PRINT "+" 
PRINT * * 
PRINT "#&" 
PRINT &2V 
PRINT *_* 
PRINT 
PRINT *_* 
PRINT "#” 
PRINT &?R 
PRINT 


IREIV- PU 
PRINT * 

PRINT 
PRINT 
PRINT 
PRENT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 





oge 
&IR 
PRINT ' 


PEND 


RETURN 
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Herhaaldelijk is mij gebleken dat er binnen onze club mensen 
zijn, die graag zelf Statements willen maken, maar de nodige 
kennis voor het gebruik van bestaande routines ontbreekt 
hiervoor. 

Voor deze groep mensen heb ik het volgende betoog gemaakt. 
Om het geheel niet te langdradig te maken, worden de 
verschillende subroutines niet uitgeplozen, Miervoor verwijs 
jk naar de verschillende boekwerken, die binnen de ciub in 
omtoop zijn. 


1. Testen 


Bij het maken van statements moet er ‚ naar mijn mening, 
altijd voldoende getest worden. 

Bijvoorbeeld: alser een statement geschreven wordt die de 
disk gebruikt, moet er getest worden of de DOS ook werkelijk 
eanstaat. Dit is erg eenvoudig en kost reiatietf weinig 
geheugenruimte; bij het aanroepen van het statement loopt 
men niet het risico, dat de computer gaat hangen 

Een enkelvoudige test zou er als volgt uit kunnen zien: 


LDA #EOOO 
CMP @HA9 
ENE error 


Hetzelfde geldt voor statements die alleen in direct-mode 
gebruikt mogen af kunnen worden. Er wordt getest of er 
inderdaad in direct-mode gewerkt wordt d.m.v. adres HO6: 


LDA #06 
CMP @#O1 
BME error 


Testen zijn in het algemeen belangrijk om een opdracht 
teilloos te laten verlopen. 


2. Het begin en einde 


Gebruikelijk is het om het statement te beginnen met een 
routine via adres #C4E4. In deze subroutine wordt dan i 





statemens getest. Is er geen einde statement (een 
"return*) door de interpreter herkent dan wordt 
errormeldimg gemaakt. Als deze subroutine gebruikt 


noet het statement eindigen met: JMP #CSSD 

Als om welke reden dan ‘ook subroutine #C4E4 niet gebruikt 
kan of mag worden moet het statement beeindigd worden met 
JMP WCESE. 


3. Input van variabelen 


In de _ Atam-interpreter zijn een aantal subroutine 
beschikbaar voor het lezen van variabelen of getallen na het 
statement. 


3.1 Het inlezen van een getal 


Dit gebeurt met de subroutine JSR #C4EI. Op adres HC4EL 
staat JSR HC78R. 

In deze subroutine wordt een variabele ot getat gelezen en 
opgeborgen in de zogenaamde BASIC-stack: 


laagste byte 16-022 
een na laagste byte 25-33 
een na hoogste byte #34 -Raz 
hoogste byte #45-#51 


De keuze tussen de verschillende stack's wordt gemaakt door 
middel van de basic stackpointer: adres #O4. 

Rij meerdere te interpreteren expressies wordt deze 
stackpointer steeds met een verhoogd. 

Na de aanroep van de subroutine #C78B is het volgende 


gebeurt: 
De waarde van de expressie staat in de basicstack en de 
basicstackpointer heeft de waarde 1. Deze waarde wordt in 


het X-register bijgehouden. Dus na aanroep van een statement 
als ONZIN BE6GIZAI4S heett het X-register en adres #Od beide 
de waarde 1 en is het getal MEGIZA9â3 als volgt opgeborgen! 
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adres #iG: HAS 
adres W25: HAS 
adres M34: iz 
adres B43: #E6 


Nu is het van essentieel belang dat er na aanroep van de 
subroutine WC78B de basicstackpeinter (MO4) op nul gezet 
wordt, voordat de computer verdere instructies gaat 
iBterbreteren. Immers als deze pointer niet goed, staat zal 
de computer in volgende te interpreteren statements Df 
berekeningen deze niet op adres #iá,#25 enz. wegzetten maar 
op adres #17,#26 enz. 

Das na de subroutine #C?6B wordt het volgende gedaan: 





LDX @#00 
STX #04 

De expressie wordt uitgelezen met bijv.: 
LDA #lé of LDA #16, X 
LDA #25 of LDA 825, X 


enz. met de waarde nul voor het X-register. 

5.2 Het intezen van meerdere getallen. 
Als er voor een statement meerdere expressies uitgelezen 
dienen te worden, moet men als volgt te werk gaans bijv, 
voor het volgende statement: 


ONZIN #4010,#5580, HAF 





ISR #C78B lees eerste expressie 

ISR #C231 test of er een komma staat 

ISR #C78B lees tweede expressie 

ISR #C23L test ot er een komma staat 

ISR &C4EL Tees derde expressie en test einde statement 

Na deze routines bevatten de volgende adressen de 
bijbehorende inhoud: 

adres HO4: HOF (X-reaister) 

=O Bió: HLO #25: #40 H3a: #00 #00 

X=et _ HLZE HEO #26: #55 #35:1 HOO #00 

X=2 _ HI6: HAF #27: HOO #36: HOO #0 

Cok na deze routines dient U de stackpointer (adres BOA) 
vieer op nut te zetten! 

uitlezen van de registers gebeurt met bijv. verhoging van 


het 





zregister binnen een loop: 
LDA Hl6,XiLDA H2S,X enz. 


Als een expréssie bijv. een adres moet voorstellen, dan Kan 
er na JSR HC7GE direct getest worden ot de twee hoogste 
basicstackbytes (#34 en HAI nul zijn door het volgende 
stukje assembler: 


LDA #54 
GRA #45 
BNE error 


Ais een evpressie niet groter mag, zijn dan 255 (HFF), dus 1 
byte kan dit als volgt getest worden: 


LDA #25 
GRA #54 
GRA #45 
BNE error 


verder wil ik nog opmerken, dat het zeer belangrijk is, dat 
de (aankomende) machinetaalprogrammeur weet welke subroutine 
in de Atom voorkomen. Vooral de printroutines  (BFXXX) zijn 
onontbeerlijk om zo kort mogelijke programma's te schrijven. 
Daarom raad ik iedereen aan zoveel mogelijk de uittreksels 
van de BASIC-interpreter en de Monitorrom te lezen en te 
leren begrijpen. 


18 
20 
z0 
48 
58 
EB 
78 
22 


182 
118 
120 
150 
148 
150 
268 
278 
280 
238 
308 
518 
520 
558 
240 
350 
zE0 
580 
530 
4D 
420 
438 
&4@ 
450 
455 
GED 
LES 
470 
428 
685 
4698 
435 
518 
520 
53u 
535 
548 
558 
558 
570 
Sen 
598 
CAA 


4 ACORN NIEUWS JESCHER DEMO} JAN WIJNEN 
PROGRAM ESCHER DEMO 


PROC RAAMEX, Y:Ar D,E 

B=A/2 

MOVEX, V 

PLOTR: D: As PLOTR, (4+A) , -LAHAI  PLOTR, B, At PLOTR, -£ ZA), A 
PLOTR, -A, C-A/2) + PLOT: -Ar -H 

PLOTR: (SA), (-5+A/Z) :PLOTR, Dr CEA) 5 PLOTR, -A: -B 

PLOTR: B, £-74A) ;PLOTO: A+ (-A/2)5PLOTR, A: CA/29 FPLOTR, Os C3*A) 
PLOTR: -A, £A/2) :PLOTR: -U54A), (-S4A/2) $PLOTR, Dr — C&A 
PLOTR, A, -Br PLOTR: O, (4#A) + PLOTR, -A, Bi PLOTO, A, B: PLOTR: Ar -B 
PLOTR, @, C-4*A) sPLOTS, De (5#AD 3PLOTR: CAA), C2HA) 

PLOTO, B, A; PLOTR: —C5#A) , LEAB) 

PEND 











PROC VORKCX, Y, A, 1 

MOVE X,Y 

PLOT2, ©: CE6#A) ;PLOT2, B: O3 PLOTZ, B» -LS#AI FPLOTZ: Br CR/Z) 

PLDT2: B, (4*A+A/2) ;PLOT2, B, O5 PLOTSE, B, CSA) 

PLOTE: -(2xB), O5 PLOTS, B, CA/Z) + PLOTSE, Be B 

PLOT®, B: -C3#A/A) :PLOTZ, OD, (E+A) :PLOTE, Br B5 PLOT2, Dr -CSHAHA/ DD 
PLOTZ: -B, -CA/2) ;PLOT2, - (4D), 

PEND 








CLEARá 

1#OODO=-1 s I=HEOUD: J=kEUDEIDOCOPYI, Jot: Jr JeJkZ-IF UNTIL JJ =#3800 
VORKCO, 4D, 24, 20) 

VORKE 120, BE, 19, 5) 

VORKC 1E, 110, B, 5) 

VDRKC1S95, 140, 6, 4) 

FORI=7OT0220STEPZO: MDVE2SO, 160: PLOT7, 1, OE NEXT 
FORJ=0T010 

Y=DsS=i7 

po 

MDVECCY+62) #9/8), Y 

PLOTG, (CY+840) /4). V 

BEEP Y/10: 1 

Y=Y+S55=5-1G UNTIL 5-20 

NEXT 

FORJ=#8D0ATOEEOFFSTEPG: ! J=-13NEXT 

FORJ=#81 GATDHI7DOSTEPZSE: COPYHEDID, HOBFF , JINEXT 
RRAAMCSD: 5D, 18: 3) 

FORI=DT010 

RAAM(S2, BĲ, 4, 5) 

PAUSE 68 

RAAMLIZ, EB, 4, 1) 

PAUSE EBINEXT 

GOTO 598 





JAN WIJNEN 
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Het schema, met een aanvultins op de handieidins van het NIEUWE 
MODEL schaketkaart 





- Het disstay: De aanstuiteunten bevinden zich op de erint tussen 
IC 18, =n ICIt (met dichst bis ICI1) De ei landses zijn al lemaal 
met de tesenoverligsende pennen van IC It verbonden, VERGEET DE 
WEERSTANDEN VAN 478 ohm NIET !! 

- De schakelkaart heeft dekoderina voor 2 blokken van äkK, en „en 

schakztby aan baard. Waar we deze blokken, en dit byte ‘neer 

zetten” in de me ry map Kunnen we instellen mby draadbrussen: 

Normaal zat er 1 GK blok me #R000-HAFFF, 1 4&K blok np 

HEDDD-HEFFE en het Schakelbyue op #BFFF komen 

Hiervoor verbinden we punt 'A' (tussen 1C7: en IC 15) wet pen 1Ì 

(=Qa) van IC7 (dwz. het sold Daje wat exact tesenover pen 11 

zit). Evenze verbinden we 'E’ met pen 16 (=Qe) van 1C7 

Voor het schaketbyte verbinden we B met pen 14 (=Qb) van IC7 

Nu is de dekodering in overeenstemming met de oP pas.à van de 




















handieidins gesever iz bezetting. 

— We kunnen K de bi Okken ten event. het schakel byte) ergens 
anders ‘meerprikken’, Bijv. wanneer we DOS hebben (HEXXX 
bezet). 

We kunnen het blok wat op de print iS aanseduid met 'E' 


makkelijk 05 bijv. #1G00-#IFFF zetten. Hiertoe verbinden we het 
EN wi tandie met gans "Gt van 107 (dit is pen 2). Ny moeten 
we op pas.4 van de handteiding atie E... adressen tezen als tes. 





e truc kunnen we event. ook uithaten met ’blOK A’, of met het 
akeibyte 'B': waa:bij opsemerkt moet warden dat bid het 
a byte alteen het adres HXFFE (normaat #BFFF) verplaatst 






- De viteansen van de 7GLS154 (IC 7) + 





sen vita. pen uits. per vite. pen vis. 
1 as 5 * Dá 9 … ge 14 & Be 
pe ai € 25 14 : A9 15 : Ga 
3 az 7: GE 11 * Ga 16 : Be 
4 7 AZ 8 : U7 15 : Qb 17 : At 
- De cs lijnen voor de sestapelde RAM's Coen 18:uitbuisen) worden 


op de eitandies tussen IC 12, en 15 aanseslaten. 


= De schakelaar om de kaart AAN: danwel UIT te zetten aas worden 
aansesioten op de 5 viakies: die onder IC 7 zitten. Er zin al 
twee doorverbonden, de kaart staat zonder schakelaar nu AAN. 


— De WRITE PROTECT schakelaar hoort tussen de nassa (-): en REL, 
het punt, dat het dichtst bij de draadbrus zit. 


IK hooe dat nu attes 
schakelkaart nu duidelijk 
de REGIONALE HARDWARE mar. 


zt vert het bouwen van de NIEUWE 
5. Voor Problemen vervoese men zich bid 
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dislist 
12REM DISLIST 1.0 


2ODIM LL25, PPO, TT1G, DEE, RAZO 
zoP. $ P4E1=DiP. "DISLIST 1.0 
ADZ=R2E0DEF. N=OTO7DELLN=Z SN. 
5eP. :F. I=AT E 
EB: LLD: JSRLLG 5 JMPLI 
TO:Lt1O:LDXERDDILDACHSZ, XO 3TAYFLSRAFBECLLIL 

BBRORAs BESLL ISI CMPAHAZ: BEGLL 125 ANDI#E7 

SB: LLi1sLSRAFTAXELDALLE: X5 BECLL 12 LSRA 

182LSRA:LSRAFLSRA 

119:tL 125 ANDA#ZF :BNELL 14 

L1EILDYS#80: LDAS#0B 
L14sTAX3LDALL7, X; STAHOF sANDOEDEI STAHOLG RTS 

148:LL1Ss JSRLLiO: TYAGANDAHOF + TAX: TYA 

158LDYA#DTCPXHHEA: BERLLIS 

1E9:LL16;LSRAF BCCLL1E:LSRA 
L17;LSRA: ORADH2D; DEY +BNELL17 3 INY 
L18:DEYsBNELLIG ; PHA; LDA#30; BNELLO: JSRLLS 
L19:CPYAKOT: BEOLL 2D LDKOHDTE JSRLLES INYs BNELL IS 

L20: JSRLL2IJER TTO 

210:LL213 PLA TAYILDAHF1SS: Ys STAKES: LDAHFLSS: Y 

2205TAREA: LDXAHOS 

LDAS#DD: LDYARBS 

ZAG: LLEEFASLHEA: ROLHEN: ROLAFDEY s BNELL2S 

ZSBRADCAHZF s JSRHFFFA 3 INCHSS : DEX BNELL EZ: JSRHF7FDs INCHSS 
zEOLDXARDEILDYHIL 3 DEV 

270:LL24CPXAROEF BELL SE 

ze0:LL 25; ASL&UF ; BECLL2EFLDALLE, X1 JSRHFFF43 INCHISHLDALLS, X 
2IGBEALL 2E; JSRAFFFG 5 INCHSS 

ZOU: LL ZE DEX: BNELL2Z4GRTS 
Z1D:LL27:DEYs MILL 253 JSRHFEUZ: INCHASs INC#9S 

320: LL 283 LDA#OF :CMPO#EB: LDACHSZ) , Y3 BOCLL27 3 JSRLLED 
ZSBTAX 3 INX3BNELL 23: INY 

54: LLZ: TVA: JSRÉFSRI: INCHSS: INCHSESTXAI JSRHFED2s INCHIS ; INCHSS 
350 LLEOILDY#ITITAXSBPLLLSL DEV 

ZED: LLT FADCHSZIBCCLL E23 INY 

3T@iLLZEIRTS 

280: PPO LDASHBO: STAHID: STAHIS 

ZOUrLLZEIJSRLLISIJSR TTS SJSRLLS4 

4OULDKEHDOE STXHD4IRTS\e i nd 

ALBsLL EG CLCILDA#S2FADCHT1 5 STARIZFBEELLES 

4ZBINCHIS 

43D: LLS SEC HLDAK17 $SBCHIZILDAH2ES SBCHITIRTS 

A4O:tLE LDXORGS 

4SO:LLE JSREFIFDsINCHSSIDEX3BNE LLESRTS 

GEU:LLG LDAHAEIJSRHFEDZ 3 INCHSS; INCHSS 

ATOLDAHSZ JSRHFBO2 : INCHIS: INCHSS: LDAOHTA: JMPHFEFA 5 INCHIS 
4ED:LLS JSR LL4iLDYS400 

GSBILLI JSREF7FD: INCHIS LDA (#92) » Ys JSRHFED23 INCHISs INCHIS 
SOBINYsCPY#S1EBNE LL1GRTS 

518: TTO LDVOHFF 

520: TTA INYsCPY#ALGBNE TTS 

530: TT2 JSRHF7FD: INY:CPYASIBNE TT2; RTS 

SAB: TTE LDACHS2), YSCMPOHZOIBCE TT43CMPAR7F: BCC TTS 




























558: TT4 LDAAHZE 

SEB:TTS JSREFFFAGDNE TTt 

570: TT8 LDX#35 

580: TT9 JSR#F7FDsINX;CPX9TBIBNE TTI:LDXADISTKNISIRTS 
S30:LL6: IJ 

EODLL7=LLE+EB LL S= LE+Bi LL G=LLE+87 

BIEN, ;P. 36; Bel LE 


E20B! 322004 3B! Ze 3054 B! 4=KBOOD B! E=KIDA SB! B=22D5 

EIDE! 1E=T35GIB! 12=HEBODIB! 14=#I0B4 FB! LEER2OOL FB! 1B=HTT5G 

EADE! 20=#E00D B! 22=#3004 FB! 2084 ;B! 26=#5B54 3 B! 2 BOE) 

ESQB! ZO=K3004 Zi=#22005 B! 5 E44 SB! ME HCED B! 5 a 

EEDE! 4R=H211GB! 42E WI54AFB! be CSOD+B'! 4E=KAIAG 5 B! 4 2201 

676B! SO=HTI4L IB! S2=#E0ED 5D! 5: DG :B! SEe2201 B! SBWT TLK 

ESDR! EO=#EDAD 5 B! 5; OBA FHI ELRIL2EF B! EE#IAS7 ;B! EE=W2201 

EZE2IB! 7 1215 G=W4ESAFB! 76495925 B! 784 BE7 

GESG:B! S2=#2920 Bú=t402C GB! BE=R2T2E 5D! BETH 

7185! W=2I5EID! J2H2TIB! Iek T120 

TEOREMSAKDISLIST V 1, Okres 

730a=BiP."" 

74ABIN. "NAAM “sD 

750IF L.D>465P. "TE LANGE NAAM (MAX, 1E KAR, >"’ $P, $11S113LI, #FE225G. 740 
75OLINK#FE22 

770IN. "STARTADRES: "S 

7EDIN. "EINDADRES: "E 

7IUIFE(SiP. $7$75G. 750 

E0aF. 1=2T020s AAI 
818! #95 VED iN=D 
S26D0 LINK PPO: V: 
BSDIF VABD=DINEN+1 3 AAN=! SSZENFFFE 

B4DU. '#I2EEFFFF) =E3P. $6 

B5UP. 7" "LENGTE: "N/2+r1" AG-VELLEN" 

BEOP. "EVEN GEDULD" $E1 

B7OREN printer AVT 83A 

BEDP. $24275564$27$485E7SE7SHEIZIREM 1Zinch/kleine resetatstand 
BIDAAD=SFRALN+IJ ZELF AACNHZI=Er 1 J=D 

202. I=GTON S. 2 

SIBIFN 13 J=JrinF.L=ITOZEP. " “iN. 3P,t- UJN 
I2OF=AAIFG=AACI+ 1) 

IEOP. SI4IREM dubbele breedte 

MDF, LE1TOCLE-L. DI /ZEP." “EN, 

SSDP, "rm PED" 2 HEF SERACIADI 1" Atte? 7 

IEAIF N-I=D OR N-I=iiG. 1850 

97000 

SED! HIL=F ILINK PPB:F=! #92 

SSP. * hik 

1008! #9Z=Gi LINK PPO3G=! #32 P. 7 

1018U.F) =RACI+I) 

1920P, $12GREM top of paper 

1830N. :P. $5 

10940F=AACI-2) 5 V=Bi N=; ! #92=F 

1050D0 LINK PPOsV=V+isU, !'#IZEEFFFE) =E 

1860! &92=F sHEV/ 2+VAE5 V=D 
1978D0 LINK PPD5V=V+1: U, V=H 
1088D0 '#S2=FILINK PPO 
1asgP, ” 18926 
1189P,' sU. EF} =D 

A118P. $1 28645 ‘Kklaar'"" 676757: ?4E1 =H E. 









































Ge $SZEHFFFFs Deb P, $2 
=!#S23IF G'ESG. 1108 
LINK PPO: G=! #9 
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de rgb print 
Onder deze kop zal er in ons regioblad een artikel van ay verschynen, 
betreffende de zelfbouw van een "RGB* printje voor onze ATOM, 

Zoals bekend, is de enige lenigste) juiste manier Om een goede kleurweergave te 
krygen, het aansturen van de aonitor set RDD" signaal, Deze [R) rood, (6) groen 
en (B) blauw aansturing is vergelykbaar act de kwaliteit van Uw videaaoni tar. 
Dit is ook de reden dat de betere koaputers aet een dergelyke uitgang zyn 
uitgerust. Hebt U eenaaal R6B gezien, dan zuìt U zich eet PAL of NTSC niet seer 
willen beheipen. Beide systemen zyn aardig voor spelletjeskoaputers, voor 
serieus gebruik echter ongeschikt. Dit door de relatief geringe bandbreedte lang 
3 aHz) van beide systesen. Nelliswaar is het oplossend vermogen van het senselyk 
oog voor kleuren aanzienlyk sinder dan voor zwart/mt, daardoor Iykt het PAL of 
NISC plaatje redelyk lop afstand), paar wanneer we voor het schera zitten is dit 
tach onvoldoende. R6B heeft dit nadeel nret, aedat het signaaì van de 
VideoDisplaybenerator ahw direct op de beeldbuis wardt gezet. Er wordt dus niet 
gesoduleerd en gedeaoduleerd, De beperking abt de bandbreedte wordt voornanel yk 
bepaald door de kwaliteit van de monitor. Een ander voordeel is de eenvoud van 
de schakeling os R6B op te wekken. { IC os van R-Y, B-Y en Y het RGB signaal te 
aaken en | IC om het synchronisatiesignaal op te wekken. Het afregelen van de 
schakeling is een fluitje vaneen cent en de gebruikte onderdelen zyn niet 
kritisch wat waarde betreít, Een iets groter problees is de aonitor. in veel 
gevallen zal er gebruik gewaakt worden van Ben portable KTV, Deze aoet in elk 
geval netgescheiden zyn. Bovendien aoet er in de kleurdekader de aagelykheid 
bestaan, os op de een af andere aanier R6B in te sturen. Retzelfde geldt in 
principe ook voor het “sync* signaal. Mochten deze punten op Uw tv niet vaa 
taepassing zyn, dan wordt de oabouw tot R6B aanitar wat aoeilyker. Een algeseen 
recept vaor oabouw kan ik hier niet geven, daar dit van toestel tot toestel 
verschilt. Raadpleeg Uw servicedocuaentatie of Úw handelaar. 

In dit tweede deel van het artikel over een REB print, de beschryving van de 
hardsare. Allergerst de print, Ik zal er een afdruk van de lay-out by doen, saar 
ik beteydel of dat duidelyk genoeg overkoet. Overigens kunt U de print ook dy ey 
bestellen. Na Net horen van de gaatjes, monteert U de onderdelen, zaals 
aangegeven op de tekening “kosponentenopstelling®. In deel 1 veraelde ik al, dat 
de waarde van de onderdelen niet kritisch mas. Het is echter raadzaam ae toch 
niet al te veel af te uyken. Dubbel zo groot of half zo klein is prinà, maar 
byv. geen faktor 10, Van de gebruikte IC's (4011 en 5612) kan de laatste wat 
aoeilyk verkrygbaar zyn. Ik kan, indien gewenst, voor dit IC zorgen. Kosten, 
tussen F25 en F35. Dit ìs afhankeiyk van het aantal, Als U de onderdelen 
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gesonteerd hebt en de konnektoren aangesloten, daa kunt U gaan testen. U hebt 
uiteraard een RGB aonitor nodig. Tegenwoordig worden er averigens tal van KIV's 
geleverd net een R6D aansluiting. 

De aanstuitngen van de beide konnektoren vindt U op het laatste blad van dit 
artikel, De verbindingskabels aogen onafgeschered bìyven, sits niet langer daa 
Roodzakelyk. By gebruik van “flatcable” oa en oa een aardl yn. 


Schakel beschr yving. 


IC A regeit alle zaken betreffende de kieur. Op pin 2 koat het videosignaal (Y} 
binnen en op pin 12 en IS resp. B-Y (OB) en R-Y (OA), Bovendien koet er op pin 5 
en b nog een lynpuls. De rest zyn gelykspannings ingangen. Op pin 7,8 en 9 
kosen daa de signalen Rood, Groen en Blauw tevoorschyn. Deze gaan via 3 
esitorvolgers naar buiten. Dit os de uitgangen laagohaig te aaken. Mocht het 
uitgangssignaal te hoog zyn, dan tunt U in serie set de REB uitgangen 3 
weerstanden plaatsen, De eilandjes zitten er al voor, U soet alleen even het 
printbaantje doorkrassen. Nog sooier is het, oe hier 3 sini instelpotaeters te 
zetten. Ook hiervoor is de print geschikt. Het soeten dan staande typen zyn, 
zonder kapje en de waarde is ong. 470 OWM. U kunt dan elke kleur apart 
instellen, In de praktyk zullen deze 3 potaeters echter in dezelfde stand staan. 
IC B verzorgt de afdeling synchronisatie. De weerstand van 4KT en de kondensator 
van 40N (0.039) zorgen er in koebinatie set een NAND poort voor, dat de 
vastersyncpuls wat later koet. Dit iva de centrering van het beeld, Dok het 
Syncsignaal gaat, nadat het is sasengevoegd, via een eaitorvolger laagohaig uit. 
De +5V, wordt uit de koaguter gehaald en de +12V. uit de sonitor/tv. Deze 12V, 
soet redelyk stabiel zyn. 

Bekykt U de tekening “kosponentenopstelling®, dan gaan alle aansluitingen links 
naar de sonitor en alle aansluitingen rechts naar de PL4 van de koeputer. De 
aansluitgegevens van deze konnektoren vindt U op het laatste blad, De 
aansluiting “STATUS" is verbonden aet de +5 van de koaputer, Deze lyn schakelt 
de TV oa naar z’n R6B ingang. Tevens wordt het geluid en het IV beeld 
onderdrukt. 

Ingebruiknase 


Als alles is opgebouwd en aangesloten, kunnen we gaan testen, Er hoeft slechts 1 
punt afgeregeld te worden. Gebruik hiervoor het TESTBEELDPROGRAMMA, waarvan op 
het laatste blad een tekening staat. Voor de afregeling hebt U een scoop nodig. 
Sluit deze aan op de loper van de potaeter “video”, aangegeven act “TP", Draai 
dan aan de potater "video", totdat U een spanning seet van 100eV.top-top. Daarna 
de potaeters kleur, kontast en helderheid naar saaak instellen, De linker koloa 
moet geel zyn, de volgende groen (gelyk aan de achtergrond), dan rood en 
tenslotte rechts een blaume kolom. Opvallend’ is de werking van de 
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helderheidsregelaar, De werking hiervan houdt het aidden tussen helderheid, 
kontrast en kleursterkte, Dit heeft oa, te saken set het feit, dat de R6B print 
niet galvanisch aet de acnitor is verbonden. De helderheidsregelaar op Uw 
sonitor werkt echter norsaal, zodat dit geen bezwaar zaì zyn. 

De aogelykheid bestaat, dat het beeld iets trilt of in heïderheid varieert. Dit 
is waarschynlyk aaar heel erg weinig, saar aangezien het eigeniyke beeld 20 aooi 
stilstaat, valt elke oneffenheid onmiddellyk op. De oorzaak zit in het verschil 
van {0Hz tussen het lichtnet en de rasterfrequentie van de ATOM. Hieraan is 
wellicht weinig te doen. Tegenwoordig is de voeding in een Ty toestel niet seer 
van prinair belang. Een echte RGB aonitor aag hiervan geen last hebben. Deze 
goet onder alle oastandigheden goed funktioneren, 

Tenslotte nogaaals: Bent U van plan, on Uw TV on te bouwen tat RGB monitor, denk 
er dan aan, dat deze netgescheiden aoet zyn. VEILIGHEID VOOR ALLES! 

Een heel ander punt is, de vier kleuren. Door handig te pragraaseren kunt U seer 
kleuren krygen. Door naselyk de ‘pixels’ omen on een andere kleur te geven, 
kunt U tussenliggende kleuren krygen. Oa en os rood-blauw geeft byy. paars. 
Beel-rood geeft oranje enz. enz. lo zyn er eindeloze variatie’s te bedenken. 
Byv. rood-raad- blauw enz. Dit geeft weer paars, maar dan iets seer naar de rode 
kant. In het oaschakelen van de °C55® lyn, zie ik niet veel heil, osdat hieraee 
alle kleuren in een keer veranderen. 

In dit laatste artikel, in de serie over de REB print, wat opmerkingen en éen 
kleine wyziging. 

Allereerst nemen we het scheaa voor ons uit TEMPUS FUGIT 08-84 biz 6, We zien 
dan links onderaan de instelpotsaeter PYIDED“. De elco's aan de bovenkant en aan 
de loper worden vervangen door typen van een Z0 groot sogelyke kapaciteit. 
Hetzelfde doen we aet de drie uitkoppelelca’s na de esitorvolgers van de RGB 
uitgangen. Door deze wyziging wordt navegen sterk verainderd. 


De typeaanduiding van de IC's was onduidelyk. IC A=ANSbL2.,.…. IC B=CD40LE 





Tekst in de GRNOD gode is niet aogelyk. De karakters worden uit verschillend 
gekleurde streepjes opgebaumd en worden daardoor onleesbaar. 

De groene achter grondkleur wordt donker by lichte kleuren en ongekeerd. Dit 
kont, omdat de VD6 geen kanstant signaal levert. Hieraan is weinig te doen en 
bavendien valt het onder noraale omstandigheden niet op. 

By het door ay gebruikte KTV toestel moest de demagnetisatie uitgeschakeld 
worden, daar anders het beeld iets bleef trillen, Gok de onaiddellyke nabyheid 
van voedingstrafo’s is uit den boze. Dit alles door onze bûHz rastertrekwentie. 
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Ô REK TESTBEELD Spanningen op IC A # 

10 320; CLEAR4 122,0 VOLT J0a0 VALT 
20 COLOURI; GOS. a; REN GEEL zet,0 128,5 
30 COLOURG; GOS, a; REN GROEN 328,5 1223,0 
40 COLOURS; 6OS. a; REN ROOD 45,5 138,6 
50 COLOUR2; GOS. a; REN BLAUN 5e0,2 188,5 
d0 END be-0,2 1525,0 
100a FOR Y = 0 TQ 192 10,5 nt 
10 MOVE Ir Bel,5 
120 DRAM LI431),Y 20,5 
136 MEET 
10 11432 4 Richtwaarden, Gemeten set BVN 10 N/V, 


150 RETURN Testbeeld: kleur, kontrast en helder- 
heid noraaal ingesteld. 
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o, 9,0 \ DIN RGB CONN 





PL&-conn. 


lzx 


= 


col1 | col j col 3 | col:2 


testbeeld 
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LINEAIRE NETWERK ANALYSE 


Vièvins 
fikatie 

ent syntax 

4 Circuit beschrijving 
5 Werkwijze 

E Opmerki noen 
7 
8 





Voarbeet der 
Model ten 


1 BESCHRIJVING: 

LINEAN is sen LIneair NEtwerk ANalyse prosramma voor 
kleinsisnaal analyse van elektrenische schakelt ingen. 
Het prasramma berekent de frekwentie afhankelijkheid 
van spanninasoverdracht ern Knooppunt impedant:es. 

De werking berust op het vertalen van de c:rcuitdata in 
een complexe admittantiematrig wetke met Gauss elimin 
natie wardt opselost, 


z SPECIFIKATIE: 

2.1 Aantal knooppunten: Geen maximum (zie BE. 1) 

2,2 Frekwentie schaal t LIN lineairistart,stop:stap 
LOG lasarithmischistart:stop, 
aantal stappen 
AUTO losarithmischt: 2 dekaden 
per scherm in de reeks 1, 1.5:2: 
24:68, 10: startdekade opgeven 
Cbijv. B=iBEB: E=10EF enz.) 

2. 5 Outeut 2 AU seanninasoverdrachtimodutus, 
arsument 
ZD knaappuntimsedantiei modulus, 
arsument 

2.4 Eiementen t R weerstand 

L zeifinduktie 

C capaciteit 

T transistar 

A cperationele versterker 

J 

2 


tj 


spanninsssestuurde Stroombron 





2,5 Benodied seheusen : 3.6K Hoofdprogramma (zie 6.1) 

3 ELEMENT SYNTAX: ÜNk=knoarppunt x5 Nr=volsnummer) 
Zi Weerstand t R4Nr); (Na), (ND), (waarde in OHM 

3.2 Zelfinduktie: L{Nr), (Na), (ND), (waarde in HENRY) 

3.5 Capaciteit # C{Nr), (Na): (Nb), (waarde in FARAD) 

3,4 Transister 2 TNr): {Ncoli), (Nbasis), (Nemi tter) 


‘steitheid in A/V), (stoomversterkins) , 
Cafsnijfrekwentie in Hz) 

AANr) : (N+ input), (N=irput), (Nautput), 
DC versterking), (ZdB punt in Hz): 
(uitsanesweerstand in OHM) 

JANr)  (N+sparin. input) : (N-spann: input), 
ms ink cut}, (Nstroomsource aut), 
in A4V) 


pel 


Deme 


2.6 Straoambran 





5 


5. 


E. 


6 
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CIRCUIT BESCHRIJVING: 
IJ Besin na het prosramma, (bijv vanaf resel 2000) 
Een =iement per reset. 





5 Hevdt de ement syntax rauwkeur:g aan 

4 Eerste reset beginnen met label: d (van data) 
5 Volsenae resels een spat:e na het lisnnvmmer. 
6 Laatste reset END of E, 

7 Geen hnovapuntnummers overslaan, (zie 6.2) 
HEANWIJZE: 


Teken het schema, 

2 Nummer de knooppunten met aanzensluitende setallen. 
Het referentie Kknooerpurt moet het nummer B hebben, 
dit is meestal de aarde of -voedinssspannins. Atte 
sparmonsen worden t‚o.v dit KnoopPeunt uitserekend. 
Denk er aan dat alte voedinsskncopeunten ook aan @ 
moeten I:9sen, omdat het een AC anatyse is. 

Sta seen Knoorpuntnummers over. (zie E‚,2 en 6,3) 

5 Tree de circuit beschrijvins in volsens 4, 

4 Run het prosramma. 


OPMERK INGEN: 

1 Denk er aan dat de benodisde seheusenruimte zeer 
snel toensemt met N, (het aantal knooppunten) en 
dat het prosramma ook steeds lanszamer wordt. 
Behalve séheugenruimte voor het Hoofderosramma moet 
oùk rekenine worden sehouden met de circuit beschrii- 
vins en de benodisde arrar's, In een standaard Acorn 
met EK kunnen beide voorbeelden nos draaien. 

2 Komt bij experimenteren een Kknoopeuntnummer te 
vervallen (bijv, door het verwijderen van een R-C 
serie Schakeling), hans dan hieraan een "dummy" 
element naar 8. (bijv. een weerstand van lelë Onm) 

3 De snelheid van het prosramma is het hooest door de 
output het hoosste en de input het een na hoosste 
knosppuntrnummer te seven. Dit hanot samen met de 
matrix oplosmethode. Nodie is dit echter niet! 

4 Voor het prosramma bestaat er seen principieel 
verschil tussen NPN en PNP transistoren. Dit verschit 
is immers een DC-matise zaak. Gewoon invullen dus! 

5 M.b.v. de spanningssestuurde stroombron kan men 
zenvoudis weer nieuwe elementen naar eisen ontwerp 
maken, door deze weer als deetschakelins vit te 
tekenen. (biov. een FET) 

6 De valsnummers van de elementen hebben voor het 
prosramma seen betekenis: en diennen uitsluitend 
voor het semak van de prosrammeur. Hieraan is seen 
beperkins opgelegd: Zodat eventueel de bestaande 
nummerins van een schena Kan worden aansehouden. 

7 Denk er bij het berekenen van in- en uitsansanss- 
impedantie aän het andere knooepunt met de juiste 
weerstand af te sluiten. ( GEEN @ OHM !) 

8 Output (1 Onm en (1 Hz warden niet meer juist afse- 
rond. 





51 





7 VOORBEELDEN: 


7.1 








Dubbes T resonantie filter 














200BAT1, 1, 2, SEI 

2810 C2: 2, ú: SE-3 

2028 CI, 4, 5, SE-9 

2035 C4, ET: D, 18E-S 

2840 R1,2, Z, 180ES 

2858 R2, Ee 5, 10BES 

20EB RE, ú, B, 47ES 

2070 Rú, 5,0: 6. BES 

2088 T1,5: 2,0: 4OE-S, 100, IEB 
20399 END 


Banddooriaat filter 





2OOBIRI, 1: 2, B2ET 

2010 R2 B, 1.5E3 

2029 R 4, 150ES 

C1, 2: 4, 10E-3 

C2, 2, 5, 10E-9 
Al,@, 5,4, 2E5, 2:75 
END 
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> RUN 

sere LINEAN VZ, 1 mee 

FREG. SCHAAL 

LOG: LIN OF AUTO?AUTO 
DECADE ? 1 

ANALYSE? AU OF ZD°AU 
INGANG? 1 

UITGANG? S 

18.88 HZ De -ES 
15.88 HZ De „88 
20.88 HZ DR —-88 
30.08 HZ DE =86 
40.89 HZ DR -85 
63.08 HZ DR =En 
80.80 HZ De -E1 
188.8 HZ De =78 
158.8 HZ 19.6 DB „75 
208.58 HZ 24.1 DE =7á 
308.80 HZ 34.8 DE -33 
498.8 HZ 35.3 DE 167 
5658. HZ 23.7 DR 167 
808.0 HZ 27,6 DR 167 
1089 HZ 26.7 DE ieg 
GEEF '"CR' OF "ESC? 

] 

> RUN 


stek LINEAN V2,L ten 
FRE. SCHAAL 

LOO, LIN OF AUTO?LIN 
STARTFREQ. 7400 

STOPF REG. ? 580 





STAPGROOTTE? 18 

ANALYBE? AU OF ZD?AU 
INGANG? 1 

UITGANG? 5 

400.8 HZ 26.3 DR 167 
418.68 HZ 35.7 DE 172 
420.8 HZ 35.2 DE 175 
426.8 HZ 34.7 DE =178 
448. 8 HZ ta,2 DR 172 
450.88 HZ Da 177 
458.80 HZ De 176 
478.0 HZ Dk 174 
485. 8 HZ DB 175 
498.88 HZ . DR 172 
520.8 HZ DB 171 
‚ 

RUN 

ten LINEAN V2, 1 mek 

FREG. SCHAAL 

LOG, LIN OF AUTO?LOG 
STARTFREQ. ?28 

STOPERED, ?20E5 

AANTAL STAPPEN? 4 

ANALYSE? AU OF ZD?ZD 
KNOOPPUNT? 5 

20.08 HZ 1.556 KOHM 3 
208.08 HZ 2.541 KOHM 2e 
2.808 KHZ 342,8 OHM es 


SA. OA KHZ 41.24 OHM 53 





LINE 





R. STOOP EN 
8 MODELLEN: 





8.1 Transistor 
invoer: Gm steilheid 
A stroomversterkins 
Ft afsnijfrekwentie 
model 5 ReB/Gm 
Ca2*PIeFt/Gm 
JaGm*(Vo-Ve) 





86.2 Operationele Versterker 
invoer: AQ DC versterkins 
Fc kantelfrekwentie 
Ru uitsanssweerstand 
model 7 Ri=iE6 Ohm 
Ru=Ru 
JeRkiV+ — V-)/Ry 
waarin A een complexe versterkins is: 
R=re. A + stim A 
O/ C+ CZPINF/ 2eP Iet) $2) 
AD C2EPIKF/ 2KPIKEFE) / 
CIEC2EPIKF/ 2e PIF er 42) 





+ 5 OUT 


8.3 Spanninsssestuurde Stroombron 
invoer: Gm overdrachtstaktar 
modei zt J=Gm(Va-Vb) 


a 0 ec 


(valve) | 
E 
3 


bo d 


et 
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MONITOR -WIJZIGING 





Vele Acornbezitters met een Schakeltkaart hebben reeds de 
mornitvarrom (#FOQD-HFFFFS in een eprom S@taden en verander naen 
aangebracht in de RESET-rautine. Deze eprom Komt in het lese I 

2h-voertje met enkele Kleine hardware aanpassingen, Over de 
hardware. waarover genozs geschreven is Ka, bid de 
ASBK-schaketsoft): wil ik het niet hebben, wel over de software 


verander ingen. 


1. Aansepast RUN-statenent 


Zoats iedereen weteens Semerkt heeft: onstaan er problemen als een 
prosramma Sserund Wardt, direkt radat het setaden werd. Dit 
probleem is te verhelpen door de opdracht “END* of YOLD* in te 
tikken, voordat het P ramma Serund Wordt. Het Pprobieem ontstaat 
doordat het RUN-commarnda de DIM-pointer (#25,:#24) setijk zet aan 














TOP (ED,#E), maar miet eerst TOP seed zet. Daarom kan het 
proeramma zichzelf vernietisen â&ls er DIM-opdrachten in dat 
Prosramma Staan. 

Om nu RUN sved te taten werken, maet RUN dus eerst TOP sozd 
zetten, dan de DIM-pointer gelijk maken aan TOP en dan saan 


interpreteren. Hiervoor dient de volsende aanpassins semaakt te 
worden in de monitorrom: 


P=tFiA41 
Et JMP CHIFFC) 5 NOP: NOP5 NOP 3 NOP5 NOP 5 NOP 5 NOP: NDP5 J 


U Fiál: 6C FC 1F JMP L#LFFC) 
B Fláá: EA NOP 
U F145: EA NDP 
2 F146: ER NDP 
8 F147: EA NDP 
2 F148: EA NOP 
® Ft143: EA NDP 
® F14&A: EA NOP 
@& Ft4B: ER NOP 


Bij het uitvoeren van het commando RUN springt de interpreter naar 
adres #FIGt. Hier staat JMP(HIFFC). Op adres HIFFC en #IFFD staat 
dan weer een ander adres bijvoorbestd #1FO9: 


IEFC: 02 Clow-byte) 
IFFD: 1F {niah-byte) 


Op dit adres staat dan de verbeterde RUN-rvutine: die er als votat 
vit ziet: 


10 REM RUN 

28 IN, “ROUTINE OP: "Q;REM bi iv. #1FDD 
50 DIMLL1$F.N=0TO1 5 LLN=GIN 

4D P.$214F.N=OTO1 3 P=0 

SAL 
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ED LDAKL2: STAKEsLDYAOs STYRD:DEY 

70:LL0 

8B INYiLDACHD), Y: CMPBHD: ENELLO 

39@ JSRECDBC:LDACHD) , Yr BMILLI 

108 INY:ENELLG 

110:LL1 

128 INY;JSR&CDBC 

158 LDA#D: STAWLI LDAKE: STARZA 3 JMPRCESE 
1483 

158 N,50=8;P, S6"ROUTINE OP #"&Q"-#" EP" GE. 


Uiteraard kunnen gok andere adressen sebruikt worden (bijv. in blok 
#7220) 
Alte prosramma's werken nu soed, cok zonder die tastise END. 
Bovendien werkt de cassette” of diskautostart cok soed.Men moet 
dan als ekecutievädres #FI41 bij het saven opseven:bijv 

*S. SNAPPER 2980 ZCOB F14t 


2. Aanpassins RESET-routine 


De resetroutine wordt met de BREAK-toets aanseroepen en besint op 
adres #FFSF, Dieeenen die de routine hebben veranderd: zuilen ais 
votat te werk zijn gesaan: eerst wordt er het een en ander soed 
aezet (poorten en vectoren) en daarna gekeken of de shitt-toets is 
insedrukt. Als deze ingedrukt is vervolst men met de sewone 
BREAK-routine: anders wordt er er sespronsen naar een bepaald 
adres, bijv. JMPCHIFFE), 

Om deze aansepaste routine saat het nu. Allereerst zetten de 
disk-bezitters ratuurtijk de DOS aan met JSR#EGUS. Maar dit is 
niet het enise wat er met de nieuwe BREAK sedaan kan worden. 

Veel Cduurdere) computers hebben de moselijkheid van sen 
DOS-autostart. Bij de Acorn is deze ook semakkelijk in te bouwen 
met behulp van de sewijzisde BREAK-routine. 

De aansepaste BREAK-routine zat in veet sevallen als volet 
„indisen: 


JSRRE7D1 ; 1 
$P="ACORN ATOM" ;P=P+LEN Ps C 


JSR&FFED 

JMP#&C2B2 5 3 
Als er nu na de JSR&FFED sekeken wordt of de CONTROL-toets is 
ingedrukt dan kan de routine verder saan met het laden en runnen 
van een specifieke file. Hiervoor moet onderstaande stukje 


assembler oP de plaats komen van de JMP#C2B2, 


12E 

20 LDA#ROBI :CMPAÉBF;BEG LLOs JMPHC2B2 
z@:LLO 

48 LDX9O:STX5: LDAAI : STAGE 

S@zLLi 

EB LDA LLZ, X;STA#10D, Xs INXICPXOIIBNE LLI 
78 JMP&C2F2 

SA 
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902 

100 N. 59=0:P, SE 

110 $P="*R, BOOT" Pal. P+P+L 
120 END 


Bij het insedrukt houden van de CONTROL-toets ats er op BREAK 
gedrukt is: Wordt de DOS sestart en het prosramma !BOOT setaden en 
aerund. De fitenaam "!BOOT" is afkomstige van de BBC-computer. 

Dit prosramma 'BOUT kan sewoon in BASIC seschreven worden. Zelf 
maak ik van een disk een katalasus in het Prosramma !BOOT. Met het 
intikken van zen toets of nummer Kan ik dan een Programma Kiezen 
en taten laden en TUTneT. 


Betanarijk iS natuurtijk wel dat !BOOT niet op dezelfde 
seheusenplaats staat als het te Kiezen Prosramma. Om deze reden 
zet ik !BOOT meestal op #20. Met behulp van een stukje assembler 
kan ik er dan >en autostart van maken. 

Voorbeeld: als het prosramma \BOOT loopt van #2509 tot EETL, dar 
moet het ats volist sesaved worden: 


P=#22F9 

Ui LDAARZTI STARLAIJMPEF LA 131 
8 z2F3 
2 z2rs A3 25 LDA A#25 
ĳ Z2FB 85 12 STA #12 
D 22FD AC 41 F1 JMP #Fi41 


*S, 1BOOT Zer 2674 


Dd 





Banvulling op "KASBOEK". 


In het prosramma "kasboek", sepubliceerd in A_N.6/84 p,18, zijn 
op onverklaarbare wijze een aantal GOTO-reselnummers in onzin 
veranderd. 

In reselnummer —) wijzisins: 934 —) 980: 1078 —) 1858; 

1248 —+125383 1270 —) 1358 en 140D; 1428 —) 1458; 1438 —) 1468: 
iS1 —) 14281 208 —) 2090: 2118 —) 22485 Z25B 2270; 

2370 —) 2190: 2390 —) 2690. 


Met deze aanvullins weet het programma weer welke sprongen er 
semaakt moeten worden. 


Eerry Lam 
AES-E51 25 
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De hieronder beschreven Forth-applikatie is bestemd, voor disc 
bezitters. Het woord PRINT kan worden gebruikt om in één keer een 
aantal Forth schermen af te drukken. Het wordt gebruikt in de 
vorm E_L PRINT, waarbij E het nummer van het eerste en L het 
nummer van het laatste af te drukken scherm is. 


Het woord PRINT is als volgt opgebouwd: 


SCR & 22 
Ô ( PRINT SCREENS 5.5P.1.5.84 } 
1 1 PRON 2 EMIT ; 

: PROF 3 EMIT ; 
2 Ó VARIABLE SCRNUM 

: PAGE 7 Á DO CR LOOP ; 
3 1: 26 ( N--F) 6 MOD Í= 3 
4 3 PRINT (SCReNI,SCREN2--- } 


PRON É SCRNUM t 14+ SWAP 
S DO I LIST 1 SCRNUM +! 
SCRNUM @ 25 IF PAGE THEN 
6 LOOP _PROFF ; 
7 


Oe woorden PRON en PROF zetten de printer aan en uit. Ze zijn ook 
apart te gebruiken in andere toepassingen. 


De variabele SCRNUM wordt gebruikt om het aantal schermpjes te 
tellen dat per pagina wordt afgedrukt. Bij het door mij gebruikte 
papier gaan er zes schermpjes op een pagina, 


Het woord ?6 test of het aantal in SCRNUM deelbaar is door 6 en 
retourneert een vlag op de stack. Als deze vlag gezet is, dan 
wordt PAGE uitgevoerd. 


Aangezien de door mij gebruikte schrijfmachine-printer geen 
formfeed kent, genereert PAGE een aantal carriage returns, zodat 
het papier voldoende ver doorschuift. Mensen met andere printers 
kunnen PAGE zodanig definieren dat met EMIT de controle karakters 
voor een formfeed naar de printer gestuurd worden. 


Voor de mensen die geen kettingpapier gebruiken kan PAGE als 
volgt gedefinieerd worden: 


: PAGE PROF CR „' PAPER * CR 
." ARESS ANY KEY # 
KEY DROP PRON ; 


PAGE geeft dan de mededeling "PAPER" en het afdrukken stopt tot 
er op een toets gedrukt wordt, zodat een nieuw vel papier ingezet 
kan worden. 
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Dit is zeer zeke miet de eerste bootstrap die ontworpen er 
gepubliceerd is maar de oobouw en turpassinsen Ziun msn inziens 
met dit ontwerp verl universeier ais de voorgaande, Het betreft 
hier een zoeanaamde hardware matige bootstrae die voor zowel de LEK 
geheusernkaart ats schakeltkaart te sebruiken Zijn. 

Voor dizsenen die niet precies weten wat sen voorstrae is nos heel 
even het volsende: 








WAT DOET EEN BOOTSTRAP ? 


Een bootstrap zorat er voor dat wanser een computer wordt opsestart 
Cbv. bij het aanschakelen) of wordt herstart (by, bij sen BREAK) 


men aantat adressen en vectoren opnieuw seinitia! iseerd warden. 
(Vectoren zijn adressen in vam die wijzen naar vaste subroutinss: 
meestal in rom. De bmotsttrap zarst er oak voor dat het 
beetdscherm wordt sewist de naam ACORN ATOM op het scherm 
verschijnt en daarna naar de BASIC interpreter springt zodat we de 
computer Dok iets KUNNer insevert. 

Nu is het mogelijk om de computer miet via zijn eisen beotstrap op 


te starten maar via een eisen seschreven bootstrap die bijvoorbeeld 
de DOS CHARON een krippaerende cursor &d. inschakeld. Dok kan men de 
computer met een andere naam laten besinnen. 


HOE WERKT EEN BOOTSTRAP ? 


Ais eerste moeten We verschil maken tussen >en software veranderde 
bootstrap en de hardware veranderde bootstrap. De bootstrap 
softwarematig veranderen sebeurd door een wijzieine in de F-rom aan 
te brenset. Dit wordt meestal sedaan door de F-rom senwijzisd in sen 
„prom te prosrammeren @r deze bijvoorbezld met sen Kleine Wijzigings 
in ie-voetje 24 te plaatsen. Hierbij wordt er vanuit de F=rom 
gecontroleerd of er op men bepaalde Plaats oP de schakelkaart of de 
IEK sehsusenkaart een bootstrap prosramma aanwezig is: en indien 
aanwezis doorsesPronsen naar dit Proaramma. Is er geen bootstrap 
aanwezig dan kan alsnos naar de orainete bootstrap worden 
sespronsen die start op het adres #FFSF. 

Voor de hier beschreven hardware veranderde bootstrap noeft men de 
F-rom niet te wijzigen maar wordt er Sebruik semaakt van „en neet 
printie dat op de plaats van de microprocessor de 5282) komt te 








zitten. Het principe is het zelfde als voorsaande bootstrap 
schakelingen nl. er wordt continue gercontroteerd of de adreslis nen 
RE t/m AlS5 attemaat teselijk 'hoos“ zijn dit wordt sscontroieerd 
door een 74LS135 (15 input nand Poort), Zie tekening. Zijn atie 
insanaen van deze nand-poort “hoos!“ dan zat de vitsans van deze 
wand-poort “laag” worden. Het "taas" worden van deze vitsans 


gabeurd waneer de adres teller van de 6582 zich bevind tussen het 
adres #FFFS en #FFFF. Deze aaressen bepalen ni. de interrupt 
vectoren: 
NMI 
RESET 
IRD 





&EFFA, SFFER 
HEFFC, HEFED 
BFFEE, SEFFF 
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Het enisste wat Met bootstrae printje doet is net wesserinsen uit 
de F-rom raar een van te voren insesteld seneusen sebied om daar 
san van de nieuwe interypt vectoren op te saan halen. Dit sepied 
waar de zomputer dan naar toe springt wordt van te voren ingesteid 
met de 4 dip-SWitches die zich op het bootstrap printse bevinden. 
De werkina iS ats volet: de & and Poorten NZ t/m 5 C74LS08) zijn 
als de vitsans van NL "hooe“ riet actief d.w.z. dat de aarestijnen 
A12 t/m A13 zen sewone daprsans vinden. Is de vitsans van NI “taas” 
dan zijn AlZ t/m AlS5 die de ESBZ afseaft altijd "hoos” maar de 
insansen van N2 t/m NS die via de schakelaar (indien sestaten) naar 
de uvitsans loopt van NI worden fu wel “laas”, Dit heeft ais sevolts 
dat de uitsansen van N2 t/m NS het patroon dus de waarde zuilen 
overnemer naar de &tarnd van deze dip-Switches. Waneer we nu de 
adrestijnen AiZ t/m A15 die naar de rest van de Computer saan 
vervansen door de vitsansen van N2 t/m NS dan zal de computer bij 
het ophaten van de interupt vectoren niet sprinsen naar de From 
maar naar de inesestelde waarde van de dipswich 

Wilt men bijvoorbeeld het nieuwe bootstrap prosramma plaatsen vanaf 
#1FBD dan zuilen de adressen HIFFA en #IFFB de nieuwe interupt 
=toren moeten bevatten: hierbij blijven de adressen voor de NMI 
IRO vectoren hetzelfde dus deze hebben dezelfde waarde ais in de 
F-ram, De nieuwe reset vector op HIFFC en #IFFD bevatten nu het 
adres #1F08 waar het nieuwe bootstrap prosramma staat. Voor dit 
voorbeeld moet die=switch 1 open staan en dip-switch 2,5 en 4 
sestaoten. De adressen waar de interuet vectoren worden opsehaatld 
zijn altijd de laatste 6 adressen van het ingestelde 4K 
aehzusenbl ok 

Verder moet er op gsetet worden dan ook de adressen HFFFS en #FFFS 
naar het nieuwe geheusern Sebied worden secopieerd. 








EDUW BESCHRIJVING: 


Het hele bootstrap printje wat een afmeting heeft van 50 bij 85 
milimeter bevat 5 ic's sen 4 Polise dip-switch en twee rijen pinen 
stries van 23 pennen die op de koperzijde sesoldeerd worden. Men 
besint met het lessen van de S draadbrusjes. 1 Draadbrue onder icl 
C7&LS1Z5) 2 draadbrusjes onder ic2 (74LSYB) en 2 draadbrusies onder 
ict CE582). Hierna worden de drie ic-voetjes erop sesoldeerd 
respectievelijk een 18 een 16 pens en een 48 pens. Daarna kunnen de 
4 puli-up weerstanden èn de dip-switch gemonteerd en aesoldeerd 
worden. Als laatst worden 2 rijen met pennen aan de Kkoperziide 
sesuldeerd. Dit laatste moet secuur sebeuren omdat deze straks in 
het ic-voetje van de 650 in de computer moet passen. Voor deze 
psenmen Kan men een ZOoSenaamde enkele breek connector nemen die te 
verkrijgen zijn in stries van S@ pennen. Bij het Kopen hiervan moet 
men letten op de lenste (minimaal 14,5 tot 29 mm lans). Waneer we 
dan 2 stries van elk 29 pennen hebben worden deze met de lanse kant 
haaks op de Print gesoldeerd. Het spreekt voor zich dat er 
zorsvuldis esesdideerd moet Worden om stuitinsen te voorkomen. 
Wanser we alles ros eens srondie hebben nasekeken Kan de 5582 vit 
de comouter worden sehaald en op de bootstrae erint worden sezet. 
Vervolsens wardt icl en ic2 seplaatst (let op soede richtins) en 
alte schaketaars worden seopend. Nu kan de bOOotstrap in het 
ic-voetje Komen waar de E5U2 heeft gezeten. 

De boorstrap is nu zo insesteltd dat hij de interuet vectoren op de 
orsirele Ptaata in de F-rom Kan oehalern. 
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We kunnen nu het nieuwe bootstrap prosramma laden en de dipswitches 
insteilen op het sehevsensebied waar de nieuwe intervet vectoren 
staan. Na een break moet de comeyter bezinnen met sen nieuwe 
bootstrap routine. 





NAWOORD : 


Het arote voordeel van deze bootstrap is dat deze zeer universeel 
te aebruiken is voor zowel elk gebied op de TEK ramkaart ais voor 
de schakelkaart met extra ram op zowel #1339 ats op #EGDO. Een 
derde moselijkheid is voor de mensen die Jeen Sthakelkaart of 1EK 
genh=ugenkaart hebben om een utility rom oP #A038 te plaatsen met 
een eisen bootstrap routine om zodanis ook van deze vitbreidins 
gebruik te Kunnen maken. 

Wat de financieele zaak betreft zutien de benodisde onderdelen 
zonder printje rond de tien Sulden ligsen. 

Verder is alles zodania geconstrueerd dat men seen pr intsPporen 
hoeft te onderbreken en IOSSe draadjes van en naar de print JOPen. 
Dak kan de orsinete kast weer netjes dicht na het monteren van de 
bootstrap. 


NADEEL : 
Deze bootstraPp kan men NIET samen sebruiken met een mini 
schakelkaart of BBC kaart omdat dit Ook “opzet” printjes zijn die 


seen ruimte over laten boven de 5502 uP waardoor de bootstrap niet 
ze plaatsen is. 


Tst stot volst hier nos men onderdeten tiist,; Principeschema: print 
1ay-gut =n het boven aanzicht van de Print. Binnen korte termijn 
zal een nieuwe dODT mij seschreven schakelsoft sereed Zijn die ook 
een eigen bootstrap routine bevat. 

Tevens wordt er Ook al sewerkt aan sen nieuwe Utility rom die DOk 
van sen bootstrap routine wordt vaorzien voor de mensen zonder 
schakeltkaart en 1EK ramkaart 





ONDERDELEN LIJST: 


Ri‚Rá weerstand 18 Kohm 1/4 Watt 

CL condensator 182nF MKM 

IC1 TTL 74LS155 

IC2 TTL 74LS08 

18 pens ic voet 

1e pens ic voet 

4D pens ie voet 
dip=switch á polis 
pbreekconnector enkel (40) pennen 
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EÌki - EDITUR AANGEPAST VIOR TELETYPE PRINTER 
1. PROPLEEMSTELLING 

DE DOJR VELEN GEPRUIKTE WORDPACK ROM "ELIT" WERKT N 
EEN TELETYPE. LE WRITECHAR VECTOR IN Ce ZERS- (2238229) LIE 
NORMAAL NAAR 4#FES2 VERWIJST, WORDT DOOR ELIT & EIGEN ADRESSEN 
GELULD. LE TELETYFE DRIVER VAN AsMARCHAL UIT ANl-2s WAARIN JJK 
#008,4209 WIRUT AANGEPAST: MOET DUS VERANDERD WOALENe 








ET ZINLER MEER MET 





2. AANPAS 

LE ELIIDR WRITE RJUTINE MOET ZODANIG OMGELEID WORDEN, DAT Le TELETYPE 
DRIVER DJORLOPEN WORDT. DE DRIVER ZELF MOET LE STAKT-TEXT (@2) EN DE 
END-TEXT (03) HERKEJJEN EN VASTHOUDEN IN ZERO-FAGE fAF. HET “07 
COMMANDO VAN VE EUITOK GEEFI DIE TEKENS VOOR EN SA HET PRINTEN. 

IN DE DRIVER VAS AM WORDT #45 GEBRUIKT. DE EDITOR wERKT LAAR ZELF JJK 
MEE, VAT WJADT DUS FAEs OVERIGENS IS DOOR HET GEINLEXEERL WERKEN HET 
ZERO PAGE GEBRUIK VAN DE EDITOR MOEILIJK TE ACHTERHALENe JOK DE 
STRUCTUUR 15 WJ SPAGHETTI-ACHTIGe 

IN PLAATS VAN #FCEA GEBRUIKT DE ELITOR IN VE WRITE ROUIINE FABD9e LAT 
ROUWES WE DUS OJK IN DE DRIVER INe VOOR DE DRIVER 15 GEEN PLAATS IN DE 
EDIT ROM, GAAT DUS NAAR CMOS-RAM IN DE SCHAKELKAART (#Esse) Ok LOK 
KAART 


Je EXPERIMENTEREN MET DE EDITOR 

MET EEN STUKJE BASIC wOKDT DE ELITOR VAN HET #fAsse BLOK NAAR 
BIJVOORPEELD HET #7es« FLOK GEKOPIEERD. DAN KAN NL VAN DISAS, REX EaDe 
GERRUIK GEMAAKT WORDEN UIT ANDERE #Ases ROMSe IN HET #7e«e GEBIED KAN 
NU GEROMMELD WORDEN. VERVOLGENS WEER TERUG KOPIEEREN NAAR EEN RAM JP 
fAsse IN DE SCHAKELKAARTe ÒM DE TWEE VERSIES VAN DE ELITOR NIET MET 
ELKAAR IN CONFLICT TE LATEN KOMEN, KRIJGT DE AANGEPASTE EDITOR EEN 
ANDERE NAAM, BIJVOORBEELD "ETET". DEZE NAAM KAN EAN JJK IN DE 
SCHAKELSJFT TABEL OPGENOMEN WORDEN, EN MEN KAJ DE WERKING VERGELIJKEN. 





he AANPASSINGEN IN D ELTOR 

DE NAAM "EDIT" WORDT "ETET" (EDIT TELETYPE), DE EEGEN ERINTROUTINE VAN 
DE EDITOR JP #ACCE WORDT GEHEEL IN DE LRIVER OPGENOMEN. DIE RUIMTE 15 
DAN BRUIKBAAR VOOR KET RIJ PINNENKOMST IN LE EDITOR OF NUL ZETTEN VAN 
HAfe ANDERS KAN NLe HET HELE EDIT-PROCES IN HET TRAGE TELETYPE TEMPO 
VERLOPENs«« HIERTOE WORDT EEN INITIEELE JoR OMGELEID OVER DIT VRIJE 
GEBIED: WAARVAN DE REST MET NOP'S (FEA) WORDT GEVULD» : 


5e TOELICHTING JP HET FROGLAMMA SIETELT" 

HET HIERBIJ AFGEDRUKTE PRJGRAMMA PEVAT ALLES OM TOT EEN AANGEPASTE 
DRIVER EN EDETJR TE KOMENe ER IS EEN SCHAKELKAART VOOR NODIG MET DE 
ORIGINELE EDIT ROM, EN KAM OP 8 OF 1 VOOR DE NIEUWE ETET. ERGENS IS 
DAN NIG 4K WERKRUIMTE NODIG WAAKIN DE AANPASSINGEN GEPLEEGD WORDEN. DE 
SCHAKELEYTE [S OJK VRIJGELATEN. MEN MOET NOG ERGENS IN CMOS-RAM 130 
BYTES RESERVEREN VOOR DE DRIVER COLE, AL DEZE INFJRMATIE WORDT DOOR 
HET PROGRAMMA GEVRAAGD EN WEERGEGEVEN, ZIE HET VOORBEELD» 
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ACORN _N 


'" FRINTER VOOR EDIT"'+ 








22 Pefl2"sTEIEOT* TELEIYFE ALS 

30 IN."BEGINADRES ak ZUIMTE “w 
AP IN."ROMNUMMER VAN ELIT hd 
50 INe"KANNJMMER V))K ETET TN 
EA INs“REGINADHES LA VER=COLE"C 
10 INe“ALRES SCHAKELPYIE “a 

$ FeVEDIT GAAT NU VERHUIZEN" ""vAN: PAGO vere 
NAAR: 2" &w 





VibsAz@ TO, PFtts A?ksATADORi NA 
18 LIM PPT:ksA=0 TO 75 PPA=erEr: NeA 

128 Fes2i: Fe 19 2: P=Ci{ 

130:PPO CMP S#O2iPNE PE6SLDAALs:STAAAFSJME HPT 
140:PP6 CHHO#OIIRNE Fi Ti LCARA:STACAF 
1S@:Fr7 JORSbERPiEMEGPHAGCLUISTYEESGSTXIEG 
162 JSR #ARD9 

17@ FLAGSTA4AESPHA:LDAEAF:PEU PPS 

180 JSR FPIsPLAiPHAGCMFAIJGENE #PS5 

198 LDX@LO: ISKEFRBIG IME PPS 

„20R:PP1 LDAFAGSTALRE23 

214 LLAGO:STAPRKAC: STAIBBOI 

22@ JSR PF3;LDK@KGROL4AEIROLSAE 

2JO:PPO LDAFAE:DTA#BEGI;KORASSTASAE 

240 JoR FFAIDEXIPNE Fra 

258 LLA B4;STA FK@l:lSR PPIIJSR PPIIRTS 
26A:EP3 LUARIIF:ISTA #RGDK 

270 LDACL2IGSTA #RED9 

26O:PP4 LLASPBAD:AND eP2G 

290 BEu FF4GRTS 

ILO:PFS PLAFLDXPE4SLDY#ES:PLPIRTS: J 

J1@ NeAIP.S6, 815 

320 Pe 'VEINDADRES DRIVER-CODE: ep 

330 REM AANPASSEN ELIT NAAR ETET 

340 Wieren Suusshas 

350 REM ZET WRITE-VECTOR EERST LANGS INIT 
36A w?43T=4DA 

370 REM INIT PRINT IPV WRITE-HUTINE 

380 WILCCEzSEAEAEAEA 

39@ WIECL2zEEAEAEAEA 

4OA WISCLO=IEAEAEAEA 

GIG wI+CDAz#AFESGOAI 

420 REM VERWIJZING NAAR URIVER 

4IA WILCEESCE2SG: WIECEC=CA2SG 

440 P.'“ETEI GAAT NU TERUG" "VAN: e"aw 

458 Pa” NAAR: #ABOG NI" 

462 7 FeAsB TJ #bkbhi AIFAODD=A? ws NeA 
418 Pes7'“EIET 15 NU KLAAR VOOR GERRUI K" 
ARQ END 


















o EELD “TETEDI+ TELETYHE ALS 
vooRg PRINTER VOOR EDIT 


BEGINADRES 4K RUIMTE 1e 7000 
ROMNUMMER vAN EDIT Tá - 
KAMNUMKER VOOR ETET za 7 
REGINADRES URI VER-CODE?#Eago 
ADRES SCHAKELRYTE ZERE RE 
EDIT GAAT NU VERHUIZEN 

VAN: #AABAC A) VAAR: 4 1202 
EINDADRES URI vER-COLE: sEag2 
ETET GAAT NU TERUG 

VAN:#7922 NAAR :4ABOA A) 

ETET IS NU KLAAR VOOR GERRUI x 
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10 REK (TEIERIVE] 
20 Pes12TELETYPE- DAT VER" 










3e IN ASSEMPLEREN NAAR * 
ar DIM Fr HON 1=@ TO Fri=&tbkriNet 
50 Irar=8 4 





60 peS2liFOR Tel TO 2ifa5 

4e CILA® FF@I256:DTAFZARILDAE PPA/2SE:STAN2OS 
89 LLAPA:DTAFAK: JMFACHSR 

9O:PrO CMPRIG2IANE FHOELDARIGSTAPAEG JMP HPT 
IO@:PP6 CMFBLAIIPNE HHT:LDAPOISTAFAF 

1iOzPPT JSRSPEFRSPHE;PHAICLDGSTY#ESGSTXSEA 

128 JSK #FCEA 

130 FLA:STASAE:HHASLDAAARGPED PPS 

Laa JSR PEISFLA:PHAGCMPRIJGPNE PPS 

15@ LUXP2AG ISREERBIG IME FPS 

160:PPI LDAP4GSTAFPRO3 

110 LDARO:LTARKAC:STAADEGI 

158 JSK PPIGIDXREIROLFAEGROLSAE 

19a:PP2 LDAFAE:STAARKOIGRORASSTASAE 
200 ISR FFIIDEXEPNE Fr2 
219 LLA R4iSTA APKOIEJSR FF3IJSR PPAGRTS 
220: 3 LUAEAIKGSTA FPEOB . 
230 LDAP#2IGSTA #RKOI 

2uB:Frà LUASPBED:AND @#20GBEU Pr 
25P:PFS FLASLDASEAGLDYPESSPLEGAT, 
DER Neties6rS15 
21 Pe'“LINK ADRES: 





15 





een 
geep: 





218 END 


AANGEPASTE TELETYPE DRIVER VOOR NORMAAL GERAUIK 






NAAST DE SPECIALE DRIVER VOOR * BLOK VAN 
DE SCHAKELKAART DIJK DE 1ELEIYPE DRIVER VOJR NORMAAL GEBRUIK 
JPGESLAGEN. ER ZIJN ENIGE AANPASSINGEN OP HET OORSPAONKELIJKE 
PROGRAMMA VAN A«MARCHAL GEDAAN: 

. ZER) PAGE HULPVELL #88 WERD #AE, IS DAN ZELFDE ALS IN "ETET" 

… IN PLAATS VAN AAN/UITZETTEN MET 2eAk=8 EN ?4Ak=l KAN DAT GEWOON MET 
CIRL BR EN CTRL C‚ WAT DOOR DE LRIVER HERKEND WORDT EN OPGESLAGEN IN 
sar 

« DE ANTI-DENDER ROUTINE MET BIJREHORENDE VECTOREN GING ERUIT 

« DE TIJD VOJR CARRIACE RETURY 15 WAT RUIMER GENOMEN: LIEF ZIJN VJJR 
DE OUDE RAMMELKAST ese 

« VOOR DE TIMING RJUTINE LAARACHIER 15 DIRECT #FP53 GEBRUIKTe 

DE AANGEPASTE LISTING GAAT HIERBIJ. (ROVEN, 


ALRERT MANDERSLOOT KON VOOR ZIJN SILENT 788 DE DRIVER NIET ZONLER MEER 
GEERUIKEN. ER IS EEN DELAY NODIG, DE REGEL MET LABEL :PPS WORDT DAN: 
:FPS LUXPS: JSR4PRSJ: PLA: ENZOVOORTS « 


NOG EEN GRAPJE: ALS SCHAKELSOFT COMMANDO OM DE DRIVER TE LINKEN 

GEPRUIKTE IK AANVANKELIJK "TTY", WAT EEN ERROR GAF. UIT WORDT NLs ALS 

TTY) GEZIEN! BETER 1S DUS HET COMMANDO "TEE" e — TARP — 
KOLENBERG 
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vdu-kaarten 


„en uitles over, en een verselijk van & VDU kaarten 
1. 1 ONS SCHERM 


Iedereer heeft zich wel eens seergerd aan de maximale reseitenste 
op ons scherm van 32 kakakters (tekens). Nu hebben we ook nos maar 


15 resels: wat ons Scherm t.o.v. andere computers wei ers 
bekrompen maakt. Dit komt vooral tot uitins wanneer we een mooie 
scherm opmaak met tabellen enz. wilten maken. Ook is het 


fustrerend met de tekstverwerker, â&ts je niet Kunt zien: hoe het 
er dadelijk op het papier er uit saat zien. 


1.2 WAT KUNNEN WE ER AAN DOEN ? 


Ten eerste: een zosenaamd 'soft screen’ prosramma schrijven: bijv. 
VDU64, wat in de arafische mode (MODE4) wat meer karakters 
{bijv.E4) op een reset zichtbaar kan maken. Era mooi is dit niet. 
Ten tweede: De schaketing, die nu in onze computer zit: en de 
beeidorpbouw verzoret niet meer sebruiken. en een nieuwe (extra) 
schakel ins OPbouwer: waarbij we bijv. 24 resels van 38 karakters 
kunnen laten zien. zo’n schakeling noemen we een V(isuat) 
Display) Uinit), vaak VDU-kaart, 

We zulten deze tweede Dpelossing eens nader saan bekijken. 


2.1 de VDY-kaart 


De schakeling ov die voor de beeldoepbouw zoret bestaat uit een 
aantal verschillende onderdelen. 


-Een viden senerator: of =controlter, Dit is de eisetijke chip 
die het video-sisnaal (het beeld dus) samenstelt 

=Een karaktersenerator. Dit is een (EP)ROM, waarin de opbouw van 
„en karakter oP het Scherm Opsesjasen is. 

=Een schermeeheusen,. Het geheugen (RAM) waarin opsesiasen is wat 
er op een bepaald moment oe het scherm Zichtbaar iS. 
=Randiosica: zoals: buffers: ctocksenerator: dekoderins, en 
andere besturines (69: ca 





2.2 Hoe zit het NU (nos) 7? 


Deze verschillende onderdelen, zijn ook in onze ingebouwde 3215 
VDU schaketins terus te vinden nl. 


-MCBB47 Vide sensratar CIC Zi) 

=2kEILd Viden seheusen (IC 42 & IC 43) deze 2 ID's worden voor de 
heift voor het Karakter display (#HE9DE-HEIFF) sebruikt 

-De karaktersenerator is een in de videosenerator insebouwde ROM. 


De MCEB47 kan alleen tekst ve een formaat van ISresels van 
Sjkarakters weergeven, en is dus niet Seschikt om onze ideen mee 
uit te voeren. 


2 VIDEO CONTROLLERS 


Er zijn een Sroot aantal Videocontroitter IC's cp de markt: die zen 
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[Pat 


formaat van bijv. SEZ aankunnen. 















Een tweetal voor de atom SEeSchikte zal IN bier (Nort: besorskent 
Ten eerste de MCBE4S vides ntroiter van MOTORDLA. Det 15 
videa controller: die verschijtende 5 
af Bl ) aankan. 

Een ande mouseltjkheid is de 
EFCIS. Dit is een voor sraphics 
maar neeft vak alfanvmmerieke m Lijkneden 

















Overigens: kan de 6845 mok Sraphics, maar 15 Promair 

Oontworser. 

b. 1 VERSCHILLENDE MOGELIJKHEDEN 

Binnen „nze elub zijn er ik weet: rebds 5 verschittende 
Kaar ‚pperationeel. Er bestaat sok sen orig, ACORN VDU kaart, 
die UO*T4 Karakters, valsens de TELETEKST norm Kan weergeven. 





=De ELEKTUUR VDU kaart (uit sept 1985): verschiltende, Pros, 
indetinsen (max. 80*24): miet teletext (viditet) rompatible 
bloukaraPhics, sean Kleur. 

-Drisineel ATOM: 1 Farmaat: GORE, teletext compatinte 
voorbereidt voorbermidt voor Kieur: blok Crelestext) sraphics. 

=GRAF GDPE4 sraf ische kaart yi de duitse TV serie 
Pmikroeiektronik’ srafisch ers. teke formaten: 
tot 8545E: seen Kieur. 

='|imburese Kaart! nos osedeeitelijk in oitwikketing)  Pras. 
shermindetinsen , max SO#24: speciaal ontwikkeld voor atom Se 
KLeUr. 














De ATOM, Elektuur: en Limbursse kaart werken met de MOGE4S, en de 
GRAF kaart werkt met de EFSSEG 


4.2 IN DETAIL 


bee 1 

D= ELEKTUUR kaart: Een eurukaart, met daarop alte elektronika, 
EE4S videg-controlter: AKbyte karakter EPROM: EKbyte statisch 
video seheugen. 

Adresserins van het beetdschermeeheugen: en de controller Met 
draadbrussen. Geen ATOM, maar ELEKUUR bus: dus v p rodig. 





t 











’Scraltins’ Cnet ooschuiven van het beeld) hardwarematie: dus 
Snel. 
Software: Een comolset besturines Preevamma voor deze kaart is 


ontwikkeld in de resin Twente 


biz 
Acarn kaart: eurokaart met Acorn bus, HCES4S videnrantroi ler: 
teletextformaat, dus 4U#24. Teletext SAASD5D Karaktarsenerator, 











IKbyte beetdscherm seneusen. orbereidt voor  kieur CROB- 
uitsans). 

Adresserinat RAM (vast) op #0400, en de controller (vast? op #7E02 
Softwar De hete besturina Zit in d vis. ACORN DOS CEP)ROM 





4. 
GRAF GDPE4 kaart: Een komptete srafische displaykaart op plm. 1/2 
aeyurokaart t de EFSZGE. Op de kaart zit Gákpyte dynamische RAM 
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die ‘nu noe) alteen door de video contr ler gebruikt kan worden. 
Oplossend vermosen: 4 onafhankelijke schermen van S12#25E punten. 
De karakters zijn opgestasen om een ROM, die in de controlter zit. 








Er zijn 256 karakterformaten, De karakters kunnen ook vertikaal, 
en cursief, Bij het Kleinste formaat schermt B5#52. Geen Acorn 
DUS. 

Adressering: Een externe schakeling, dus zo te maken als men wit. 
Software: is in wotwikkeiing in resia Noord 

á.id 

De 'timbursse kaart: een EB45 controiier: ZKbyte stat.RAM, en 


áKbyte EPROM karakter senerator. Hardware scrolling. De ernt wordt 
op het @senblik ontworpen: dit kan nos wel even duren. Eurokaart?, 
net Acorn bus 

Extra 1/0 adres: voor het omschakelen van deze Kaart naar 'sewoon' 
Schemt, en voor het inverteren van het beeld 

Adresserinst RAM mbv. draadbrussen tussen @ en #4Q0E: controiier 
(vast) op HEFEC sen #BFED. Extra poort op HEFEE 

Software: Een compleet systeem is in de resin Limburs ontwikkeld. 


Hopelijk heeft dit artikel ietwat duidelijkheid in de duistere 
'VDU-kaarten brei’ seschapen. 
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Dit programma maakt het telefoneren gemakkelijker 
daar er van tevoren telefoonnummers in net ge- 7 
heugen zijn opyeslage:., op naam, 

Het is gemaakt om ín comoinatie met een druktoets 
teletoon te gebruiken, die je voor zo'n f29,-- 

in de winkel koopt. De uitgangen van de A.A 
bedienen dan relais die op hun beurt de goede 
druktoets overbruggen, ook over de "haak" moet een 
relais staan en tevens een contact dat aan de in- 


put van de A.A doorgeest of de huoru op de “naak" 
ligt. ? REM TELEFOONKIESAUTOMAAT 


5 _ 24298-#52 

15 :#248=!#2P8+3 

2 24B3jC=d; ! BIP A APFFDIAD 

3D P.$12;DIM A(29),B(2A),D(2B),O(2#)s Caf 
3is T=2#B8P 1; T=T&H8PIIF Lef G.A 


52 G.s 
48 P."WILT U EEN NAAM INVOEREN TOETS A, 'N NDMAEN 
TOETS 0" 


54 DO KEYI;UNTILI=65 OR I=79 

6% IF I=65 Ga 

19 P.$12,"DEEL MIJ HET TELEFOONNUMMER MEDE" 

15 P."EN WEL IN DE VOLGENDE VOLGORDE: ” 

85 IN."KENGETAL-ABONNEENO., EVL. LAND- KENGETAL 
—ABONNEENO, "'$0 

9P C.b 

1fdar. E12; IN. "DEEL MIJ DE VOORNAAM MEDE"$A 

115 RESTORE 1445 

125 DO C=C+1;READ$S; UNPIL$d=jA 

134 RESTORE 29d5g 

148 DO C=C-1;READ$O;UNTIL C=f 

154oP.$12,'*"IK GA HET NUMMER NU DRAAIEN"! 

164 P."EVEN GEDULD A.U.ö." 

29P $D-$O;L=LEN(D) 

21AlL=L-1; IF Lei G.k 

225 $3=$D;$B+1=""; $D=$D+ 1 

238 IFBs="-";FOR X=1TO6Á;WAIT;N. 50.1 

2ad IFDS="BITHEN?4BBP1= 8D; Gow 

259 IF$3="1"THEN?4B8Z= PI; G. v 

26% IFSb="2UTHEN?#53DB=rD2EG.v 
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219 IF$3="3"THEN? BdG 0D4;G.v 

289 IF$B="4"THEN?0B8fd=0D8;G.v 

299 IF$B="5 "THEN? #58Ad=0 10; G .v 

359 IF$B=" “THEN? #88fdep20;G. v 

319 IF$3="TTHEN?028dda# 4D; G.v 

329 IF$D="BATIEN? 4B8GG=RBD;G Vv 

359 IF$ö="GTHEN?#B8H1=HD2; Gw 

34PVFORX=1T05B;WAIT;N. »74B8fded; FORX=1TO3E; WAIT; 
N.;G.1 

35PWFORK=1TO3D; WAIT ;N. ;7438D 1e; FORK=1TO3D;WALT; 
N.;G.1 

4JEKP.$12, “KET NUMMER IS GEDRAAID"? ' 

41f P. “MOET HET NO. NOG EEN KEER GE- DRAAID 
WORDEN, J OF N 9» 

425 Do KEYI;UNTILI=740RI=78 

435 IF I=74 GOSUB 0;G.b 

44g P.812, "WILD U DAT IK EEN ANDER NUMMER DRAAI; 
J Or N 2 

455 DO KEXI;UNTILI=740RI=78 

467 IF 1=74 GOSUB o;G.s 

479 P‚$12,"TOT ZIENS"; FORX=1TO605; WAIT ;N. ;P. $12;G.5 


5PPo?4B8P1=4D4; FORK=ITO6PsWAIT;N. ;2#B8D =D} R. 


15455 DATA"HIER", "STAAN", "DE", "NAMEN" /en op evt, andere r. 
2555g DATA"HIER", "STAAN", “DE",#123-45" 


In de regels 5t/m20 worden de poorten goed gezet 
voor hun in- en outputfuncties, In r.31,32 wordt 

er zekeken of de hoorn op de haak ligt, is dit zo 
dan komt het programma hier in een lus.in r‚83 

wordt gevraagd het telefoonnr. in te voeren met een 
streepje tussen kengetal en abonneeno.De wachttijden 
in het programma kunnen eventueel langer of korter 
worden gemaakt al naar gelang het plaatselijke tel. 
net toelaat. De subroutine op r.500 zorgt ervoor 

dat als je het no. nog een keer wilt draaien, cq. 
een ander no., het relais dat over de “haak” staat 
even vekrachtigt wordt zodat je de kiestoon weer 
krijst. 

De aansluitingen van de poorten zijn als volgt: 
PBg=t je, PB1="24, pg2="3t, PB3="4", P54="5", PBoa"6" 
Pd6="7", P37=!B", DAg=tfr, PAls"9", PA2ede haak 

Dit waren de outputs de enige input is het contact 
op de “naak'" en deze zit op PA7, is deze hoog dan 

is de hoorn v/d haak, Wait in r.470 zodat U de tijd hebt 
om hoorn eros te legden, 
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EXTRA STATEMENTS 
CTRL. 





18 PROGRAM CTRL-SC 


20 P.$Z1:GDS. a 
4D P.$E 5605. a 


ED ST="CTRL"ETETLENET) 
70 ?T=A/ISERRED Ti AAST? 2e H00 TTE 
ea END 


90 

109al. BA A:.TA #9F00 

11: WRCH =HEFFL 

120: TSTEND=#CAEG 

150: RDVEC =#020A 

148: BASIC =#&CHSR 

1SB:RDCH =#FESG 

160: ESCTST =#C504 

170 

180JSR TSTEND: 

19BLDA @CSTART) #256: STA RDVEC 

ZOULDA ALSTART) /Z5E5STA RDVEC+I + 

ZIOJMP BASIC 

z20:STARTIJSR RDCH: CMP ARBDIBED RET 

CMP B#&BI:ENE TSTÍ3JSR INVCH; JMP START ; 

240: TSTAICMP BIZIBNE TSTE:LDX OHUI:STX HEEIJMP DUT: 
250: TSTEICMP D2IBNE TSTZ:LDA DEZFIJSR WRCHILDA AZFENE OUT: 
50: TSTAICMP @ ;BCS RET: 

270: OUT: SSR WRCHIJSR ESCTST; JMP START: 

288: INVCHITYASPHAELDY #ED: BMI INVEND:LDAC#DE), YHEOR SHSU 
=GOSTACHDE): YILDA HELFEDR AHBUISTA #E1: 

EOD: INVEND; PLA: TRY: 

Z10: RET: RTS 

5201 

558 RETURN 














Beschrijving 


Atie controt-codes worden direct uitgevoerd zonder sgevolsd Ve 
hoeven Werden door (ESD) of (RET) « 
Na (CTRL)-L werdt de pas-mude aangezet. Een listing stopt dan onde 





aan de bladzijde 

Bis (CTRL)-B wordt de pas-mode tevens uitgezet. 

Met (CTRL>-A kan de cursor aan: VESP, uitsezet Norden. 

Het prosramma sebruikt P-CHARME & MINIAS. Natuurlijk kun Je Dok 
labels” aebruikers 

St dimmers. 


"aewarn 
bent 
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18 PROGRAM PAG-SC 
2e 


58 DIM LLCS)3FOR X= @ TO Ss:LLEKRFFFFINEXT X 
40 PRINT $21:P=A;:GOSUB a 

50 PRINT $6:P=A;GOSUB a 

68 PRINT “STARTADRES : #'&A' 

7@ PRINT “EINDADRES : #"&P' 

50 

90 $T="PAG"ST=T+LENET) 

188 ?T=A/2SENHED: T?1=AK2SEIT ZEER T=T+2 
118 AzPiT!1=A 

128 END 

128 

148a5E 

158 JSR&AFFS:STA#BD: STAHB1 

165 LDA#208: CMPALLAA2SE: BEG LL4: STARBS 
178:LL&:t DAK203: CMPALLO/ 256: BEQ LLS:STAHBI 
188: LLS; LDASLLOL2SE ; STAK2OE 

198 LDAALLA/ 25E: STAKZO9 

208 JMP&CSSB 

21@:Lt: PHA 

220 LDA#BEGC:IANDA#DE:BEG LUI \ Test VIA-printer on 
258 LDA#BB:BEG LL1:PLA 

248 CMPSKODI ENE LL2 

258 DEC#BI:BNE LLZ 

258 PHA; TXA: PHA 

278 LDAKFE:STA#70 

280 LDAAH7 ; STANFE 

230 LDADLO:TAX 

30E: LLZ: JSRHFEFB 

T18 DEXSBNE LLS 

520 LDA#B@: STARE :LDAH7Os STAHFE 

258 PLA:TAX 

Z40:LL1sPLA 

ZSB:LLE JMPCHBE) ; 1 

ZES RETURN 


Beschrijvinss 


Deze routine is bedortd voor mensen die seen printer hebben: die 
per pPasina Kan afdrukken bv. een telex of een teletryae of sen 
eenvoudie type printer. 

Eerst moet een eventuele printroutine zijn insetinkt bv. ter 
besturing van telex of teletyoe, 

Dan kan de PAG-routine worden ingel ikt. 

De nude erintvector wordt bewaard. Na het testen op (CR) en 
eventveel pasineren wordt doorsestuurd naar de orisinele vector. 
Opmerking t in resel 220 wordt setest of de VIA-erinterroutine is 
se-enabled, Bij een andere routine moet deze test worden aansenast 
' 

Syntax: 

PAG UX) zeeft afdrukken van X resets waarna standaard 10 lineteeds 
votaen, 

PAG @ zet de telier, dus de pasinerins: Uit 
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18 PROGRAM SPA-LIN 


SPA & LIN. 


30 PRINT$Z1$E;G0SUB à 
48 PRINT $6$7:G0SUB a 





58 

60 $T="SPA"IT=T+LENCT) 

78 ?T=C8PA) ENHED: T? 1 =C5PA) EIT=T+e 
80 ST="LIEN" +LENCT) 





98 IT=CLIN/ZSER#EDI TI Le CLIN #2565 1? 2et50 
198 T=T+21A=PIT| 1=A 


i18 END 

128 

130aL. BA As. TA #9F00 
140: SPACE=#F7 FD 





150: WRCH =EFFFG 
168: BRSIC=#CSTB 
178: GTARG=#AFFE 
188 
190:SPAIJSR GTARGS BEG OUT:BMI OUT: TAX 
200:LOO0P1IJSR SPACE:DEXSBNE LOOP1: 
210:0UTIJMP BASIC: 
z20:LINIJSR GTARGIBER OUT: BMI DUT: TAX 
Z3OLDA #FEIPHA:LDA @#D7:STA #FES 
zuB: LOOPZILDA A#AAF JSR WRCHS DEX5 BNE LOOP2 
250PLAISTA #FEIJMP BASIC 
2501 
278 RETURN 
280 
Beschrijving & 


SPACK) 1 seett X spaties vanaf de huidige positie van de cursor of 


printkop. 


LINCX + seeft X tinefeeds ZONDER een CR uit te voeren. 


ENABLE & SOUND 













Het ENARLE-storement en de buffers CLUUT. 
: E56 bytes lans en han wilbekeur: se 
net geheusen Komen, Hiervoor eebruiken we het 


waarin n net adres van de buffer is. Dit statement crseert 
de butter (zet atie painters smed, en maakt de inhaud setijk 









B) en onitiatiseert de interrupt vanat dit moment 
Kan met SOUND-statement pas Smid reren. 
De buffer is opsebauwd uit 7 elementen vän „lk 26 bytes: elk 


stement bevat alte berodigde sesevens voor & SOUND. Dit 
Kaat er vo neer dat tegelijk maximaal 7 SOUNDs in de buffer 
Banwezis KUn Zijfe net ‘spelen’ van ‘anger STUKKEN 
muziek Kan men er vaud vanuit een bas: eragremma de 
butter bijven vulten, Op het moment dat, deze ‘val! 15: Zäl 
met de vitvoer van een SOUND statement (en dus Gak de 
giatvoerr var: brt praeramma zett) worden gewacht totdat weer 
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alaats on de buffer vr } 
er ENDB,E-statement dient s 
SEDrU kt, 











Kaat, 
VEEhIS zenmaal te warden 





T SOUND 





Tans où Staat om de saund-but: 















Her T22 rde „Vilt UAT WE al te va 
1E heven staan bis SPec:t, is Ket vul ten 
sa Met Pnabie-register 127 van BDUND statement 

NEN aen! ad ar 7 paramets 5, sie een 








uirge Tunitie neben. 


aP,D,S1, ED: 








De parameter C beschrijft 4 vers: 
weten: 
nyte 1 (LSE), de CHANNEL SELECT byte, setscteert het 
Jetuidskanaal, dus bezit de waarde i,E af Zo indien men 
hiervoor & Kiest, zat een ruiskanaal (in kanaat 2) 
Seselecteerd Worden, 
LE2 2 NSE), het ELUSH byte kan de waarde B af | 
bevatten: indien deze byte '1' is zal de SOUND niet 
arnter in de buffer worden Geplaatst naar direct na de 
hurdige SDUND naar de PSG worden sestuurd 
we 


hitlende functies, te 














5 (NSE), het HOLD brte, Kan evenzo de waarde 8 of 1 
sevatten, indien dit byte '1' is zal de SOUND wet in de 
Worden Seplaatst, maar zal BEWACHT Worden ce zen 
send SOUND-statement waarna de nieuwe segevens 
binnen hetzelfde etement in de buffer warden seplaatst, 
bytes é (MSE), met INTERRUPT-CONTROL byte, is normaal 
ken B, Echter indien dit byte '1’ is zal de 
;Dterrupt=rautine (tijdelijk) warden ae-'disabied', 
Indien het interrupt-cantrol byte '2' is zal de sehete 
buffer worden Scho ngemaakt Chet zeltde effect als eer 
nieuwe ENABLE voor een ealijk butteradres)., Indien het 
byte 4’ is: zal de interrupt-routine definitief warden 
se-'disabies’, 

















De Arocaramster is daarenteaen vrij eenvoudis, hiervan wardt 
Slechts de LSB sebruikt ais aanduiding voor de ampt itude 
Deze amplitude (volume van de klank) Kan tussen OQ en 15 
tigaën (resp, Stilte tot maximaas vatume), 

Le P: iS de freaventie van de te 
„en voormate {tatar tussen A an 4035 
In at van e Fuiskamhaal-selectie zal de waarde tussen 3 
als ruis-srondfreaauentie 

Tieveligk witte tot roze ruisd. 

D-parameter staat voor de toonduur (duration), deze liet 
255 on eenheden van O.Ol secande (dus een 
25 5). Deze parameter wordt atteen Sebruikt 
vaar SOUNDs enveiope-definitie, 
Met de SL, parameters kunnen we een envelope 
def snieren, dit fun neert at leen (ndien de A-paramest 












ne deze is vaar 










naximum van 











FP), de REAL-DURATION oyte zeett de werkelisre 
duur van di envelape-fase in eenheden van Ö. Al s (ats 
bes dee D-paramester). 
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2, de ENVELOPE-TINING byte 
EEA, ENVELS 
Snveigpertreauentie 1 
hoeft niët, 3etisk Eran aan 
EZ, de ENVELDPE-SHOPE byte: 
La PROGRAM SND5 

za CNOELS #4000 

#0020D021, 16, 400, 2, 





KAT 




















vaan. 

















Ana ameter nu 16 
ts tase SÌ envetaar zien 
5t is res soifvorm #D 
sustain), een ape times en een real 
vrasien #40 (=0.64 s), fase SE is wen aoifvarm à lean 
ease): envelope timins #EO en een reai duration #60 
weer in ‘echts’ B.0i 5). 





Hat resultaat is ats vaiet? 











PROGRAM SNDE t 
ENAELE #4000 

X=#002D 2040 

Y=#800A0DED 

Z=#0A1 Z0EG 

SDIND #70010201, 16, 150,0, XY, 2 

SOUND #00022002, 16, 275,0, X, Ys 2 

END 

Het resuitaat hiervan is een dubbei tank (Kanaal 4 en 
met zen fraaie freavenTie-verhoudis =n n gezamen! ijke 
envelope als vlat: 


VANIN 


De DSbauw van Zlk element in 




















LSB antfvarm 
fase 1 Cm DAL 5) 


zimpe timing fase 


ventie Kandat Al 






HSE freaventie kanaal Fi 
LSB idem É 
MSb (dem B 








e Ckanaas 
naaste tur „5 
Amplitude 
Ampir vude 
Amel ivude 
zein 











Tei na 
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„AB PRIJGRAM EN2 
…10 DIM LLESsFORI=ITOEStLLI= SIS INEXTI 

;20 PRINTS2I ;P=A; GOSURas +GOSUBas PRINTSE 
250 PRINTS +GOSUBa; PRINTSE 




















140 ST="ENASLE =T+LEN(T) 

150 Li O/ZSEI HED Tiet OALSEIT Ze kBOI TT +1 
zE8 :T!1=A 

178 END 

88 

:9Dar 


Z0D:LLE IJSRHCLELFLDXRO4 DEK: STXHOALDAHLE, Xs STAKES: STAKSA 

10 LDA#ZS, X; STA#SI; STAKEB: CLC: LDA#EA: ADCHZE ; STAHEA 

LDA&SRG ADCHDE STAKSE:LDASHFF ;STAKZEL ;LDYAO 

:LL19 LDA98;STACHES) , Ys INY: BNELL 19; LDA#BA; STAHEC: LDAHSE 
<48 STAKED:ILDKOD:LDYOOI:LLIG JSRLLIZINKGCPKE14: BNELLIE 

250 LDASRFF; STAKBSDE;LDAARFU:STAKBEBZ 

zED LDAARAY; STAKBEGE:LDAIHCOs STAKBEGE:LDAAFLG: STAHEBEDA 

270 LDAARZT: STAHBEO7 sSTAHBEDSSLDAOLL 1256: STAKLO4 

280 LDAALLI/25E:STARZOSILDADISHSTARZIT:LDAADISTAREE2: STAR2IA 
238 CLI JMP#CSS, 

=00 +INTERRUPT SERVICE ROUTINE 

B:LL1 LDAHESDAGSTYHEGISTXH#E1 $ SEI 
LDYA14;LDACHSB), Y: CMPDOSBEGLLISG JMPLL1G 

LUIS LDA#ZE4: CMPOI : BNELL ZB 

t@ SEC;LDA#ERs SBCHZE; STA#EA:LDAHER: SBCHO: STAKER 

558 LDYAOs:LL21 LDACHBA), Y1STA(HEB), Ys INY:CPYOZE: BNELL 21 

3568 JMPLLZ 

27O:LL20 LDA#ZS2; CMPOL: BNELL2SLDY#233:CPYA26 5 BEDLLE 

280 LDACHES), YiLDYOLAG STRACHE), Ys INCHZEEILDVRESS 

238 LDACHSD), V;LDYALS:STACHEE), Ys INCHZESILDY#2EE 

4B@ LDACHSS), Y;LDYALEISTACHSE) , Ys INCHZ LDY#2ES 

418 LDACHSS), ViLDYO17:STACHES), Ys INCHZEES JMPLLIG 

420:LL 2 DAAG: STAH 
&36 LODKAD:LDYBOr:LLE JSRLLL2S INKGCPXO14s BNELLE 

448 LDXA7sLDYOHFF; JSRLLIZ 

é sLDADOISTARLEASCPYOLIBEOLL LGG LDYAG 

4E@ LDA#HEAFCMPHEC: BEOLL17s JMPLLIZ 

47O:LL17 LDAHER:CMPREDSBEGLLI 1: JMPLLIJ 

48D:LLIE LDACHEC), Y5STACHEE), Ys INYsBNELL EE 

49V:LLá SECHL DAHER: SBCOZE: STARGA:LDAHEB: SRCAO: STAHSR 

SOO:LL1á LDY@IESLDACHBE), YsL DY LIS STACHES) , Yr LDVOLEFLDACHES), V 
SLO LDY@LEGSTALHEE), YiLDYAI7sLDACKSB), YiLDYDIE: STACHES), V 

528 LDYaOsLDXAD 

LLS LDACHSS), V;TAYs JERLUL ASIN; TXR: TRY; CPKA Las ENELLS 

540 LOA CMPO1 3 BELLI 

S50:LLE LDYASILDAEREE), Vs CMPOIESBEQLL7s INYs:LDAC #88) 
560 KEDLL 7; INY;LDA(CHEE), Vs CMPOLES HEOLL 7: LDRAD: START 
STU:LL7 LDA: STA# 

589: 

SIDrLL 1OLDYEES LDA C+ 
PLA 








































Y:CMPDIE 
2: JMPLLS 









STACHZE, Y 
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PROGRAM SOUND, 5 
DIM LLZOIFORI=OTOE 
PRINTS2Ls P=A: GOSUBa 
SOUND"; 5 
LO/ESELKEDST 























18Bars:LLO SEI 

198 JSRECSEC: ISRHC 
Nl JSRECEECIJSRECE 
ISR#CERCI JSRECAEG 

LDX#D6 DEX:LDAHIE, KISTARZEDILDAKDS, XI STOEL 
DEXsLDAGLE, X:STAH LDA#2S, X4 STAR 
tDExS LDAHIE, X5 :srat LDASIS, X 





1 JSR#CSBCHISRHC 























BENSLDARIE, KETA 
DEXsLDAH1E, X4 STAR 
DEXsLDARIE, X4 stake: 


LDA#ZS. X5 :STat 


SSSEGSSSS 


:LDA#Z5, Xs: STAR 





sLDA#EG, XiISTAALEF 














@ :STX#04 
0 CMPS1 ; BNELL 161 JMP#CSSE 
D :LLiE CMPAZIBNELLE7:LDY90 
:LLt4 LORIGISTACHSS) , Ys INVsENELL IG SLDAHEC: STARS 
0 LDA#HEDISTAHES 
V:LL17 LDAHZED:CMPOESBNELCI 1: LDAORTF STAHBEOE; JMPÉCSSE 
BrLLii LDYA7:LDAHZELISTACHSA), Ys LDAFZ2D 
DO CMPSIGBNE LLts;LDX90sSECILDACHEA), Y:SBCALG STACHSA), Y 
B JMP LL4 
BiLLi CMPOZIKNE LLEILDXOZISECS LDALESAN, Y5SBCATISTACHEAI, Y 


JMP LLá 
LLZ CMPOZIBNE LLEILDXG4S SEC: LDACHEAN, YSECH4ISTACHSAN, Y 
JMP LL 

:LLE SEC: LDACHEA), Yr SECH 
zLLá TXBs TAY LDA 


3STACRER), YELDXAE 
AISTA(HSA), Y;CPYAES BEGLLS 











INY;LDA#Z2E; STACHSAD , Y 
vADCATITAYICPYOLLIENE LLE:DEY 
zLLE LDA ACHBAI, YrCHPALEFBEGLLIG 






:STA#SG 
:STAHEG:LDA#S1 +ADCAEISTARSL 


LDXAEILDAADESTARSL 
sLL7 CLC: LDA#ED: ADCH 
DEXGENE LL7 
LDYAL1HLDAFEDISTALHBA, Vs INYS LDAHS1LISTACHEAN, Y 
LDAEZLOSLDYAI4ISTACHEED , Y 

JMP LLB 

LL1 LDAREZE:LDYAI4G STACHBAI » YHLDAFEET STAFGOS JSRLLZG 
LDA#B1 5 Tayssrarsen U LOARELSINYSSTACHER) , Yr ENY 
STACHBA), Y 








al 








LDA#SL s INY 





43 STAHEOI JSRLL 
CHBAI, YE INY 








5D LDYATELDACRBAG, Yr STAF zIMPSCHSE 
E4O:LLIE LDADHFF:STAH 
55 CLE: LDARBA: ADCaz! 
EEG:LL1S CLC:ILDA #855ADCAL 
678 LDA#ZAICMPHBGIENE LL1S 

EED LDABSESCHP#ESI ENE LLISIJMP LL1A 


sADCAB: STAHOR 
FLDA#ES: ADCHDI STA #ES:CLI 
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EIE:LLIS JMPHCSSEH 

7O@:LLEB LDXALE:LDADD: STARE: LDAKED: STAHSI 

TIO: CLC:LDARS1 ; ADCHEB: STAHBL ;LDAKBZ; ADCRE: STANBZI DEX 
720 BNE LL21:RTSie 

750 RETURN 








AUTO -INIT 


18 PROGRAM AUTO-INIT 

28 INPUT"ADRES TABEL : “TsT=T/ 256 
38 DIM LLO:LLO=#FFFF 

4D P=tEOBO: PPakiD; PI 1 =DE 

58 FOR N=@ TO 15 P=$EDD2 


EBL 

7OLDAS T:CMP&IFC;BER LLG 
BOSTAKZFC 

B: LLB: JMPHD4BE 

18081 

110 NEXT N 

120 END 


Dit routinetje initieert uw ze!tsemaakte “P-CHARME"-toolbox op 
bv, #7000 automatisch: zonder een bootstrap ot een hutpprosramma in 
BASIC. 

Voorwaarden hiervoor zijn: 

1. een Fioating-Point met insebouwde S-neswissei, zoals beschreven 
in A.N.2,2:bl.74 Of bl.75 

2. vrije RAM op het eerste testadres hiervan: dus op #ESAO 
(Marchal), of #7800(Bouma) 

Invulten in resel 48. 


Ikzelf had in het verteden mijn FP-rom al eens Sewijzisd voor een 
„ventuesle schakelkaart,. 

Met het minikaartie hoefde dit niet meer en krees ik er een vrij 
stuk RAM bij (niet kado...) 

Eventueel kunt u zetf nos wat initiatieroutines toevoesen om het 
een en ander op te starten 

Zors er dan wel voor dat deze ats subroutines weer naar dit 
prosramma terusspringen (RTS) en NIET naar Basic met bv. JMP#CSSB. 
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p-fun 


De P-Charme snterpretor blijkt een groot succes te Zijn. Een belangrijke factor 
die bijdraagt aan die polputariteit 15 de mogelijkheid tot uitbreiden, Hiertoe 
zijn in de P-Charme handleiding drie mogelijkheden gegeven: 

3) In basic door middel van het PROGRAM statement 

b) In machinetaal door het toevoegen van extra statements. 

c) Door gebruik te maken van de ‘truc voor gevorderen’. 
De eerste mogelijkheid wordt uitgelegd in de handleiding en mogelijkheid Db) 
wordt bovendien uitvoerig behandeld in Acorn Nieuws mel ‘84. 
De 'truc voor gevorderden’ is gebruikt in de mini-assembler (A‚N. 4-1984) en in 
de extra-variabelen van Chris Kwakernaak (met een Klein foutje; Zie elders in 
dit nummer). Om deze truc voor een wat groter pubisek toegankelijk te maken 15 
het programma P-FUN ontworpen. Het is een Klein programma dat het mogelijk 
maakt om functies bij te maken op een zelfde manier als dat al met statements 
gebeurt. Aan de hand van een paar voorbeelden zal een en ander vlug duidelijk 
warden. 





Stet we willen een nieuwe tabel met functies maken op “7000. Een tabel mag op 
z’n hoogst 256 bytes Täng”zijn, dus we kunnen veilig beginnen met assembleren 
op #7100 Cals we zeker weten dat onze tabe} ook in de toekomst nooit zo tang 
wordt, dan mogen we ook eerder beginnen met assembleren bv. op #7080) . 


We beginnen met het aanmaken van een lege tabe} (een tabel die dus wel door 
P-FUN herkend zou Kunnen worden, maar die nog geen functies bevat). Zo’n tabel 
ziet er alsvolgt uit: 


7000 FF (page extension byte) eenvoudig met ‘$7000=HEOCTEIFE 
7001 E3 

7002 C7 {bij statements was dit #CÓ) 

7003 80 (tabel eindigt altijd met #80) 


Om nu de gepubliceerde functies te gebruiken moeten we nog twee dingen doen: 


a) de variabele T wordt gelijk gemaakt aan bet eind adres van de T=#7003 
tabel. In het begin is dat dus #7003 

5) de variabele A wordt gebruikt om de assembler te vertellen A=N7 100 
waar de functies moeten Komen. We Kiezen #7 100. 


Vervolgens runnen we achter elkaar de verschillende programma’s met functies. 
Om P-FUN te vertellen dat er een tabel met functies staat op #7000 is er in 
P-Charme nog een byte vrij gelaten: 

IN3FA=H7 0 (hoge byte tabel-adres) 
Bovendien moeten we de P-Charme interpretor nog wijs maken dat we gebruik 
wilten maken van de ‘truc voor gevorderden’: 

IgZEE=R7400 (start-adres van P-FUNÒ) 

2H3FB=HB3 (controle byte) 
Als we later om een of andere reden P-FUN uit het geheugen halen eerst ?#3FB 
gelijk aan nul maken, anders loopt het mis (vandaar dat P-FUN ook veel beter 
achter slot op de 1ó6K-kaart Kan). Mensen met CMOS-geheugen (of beter: 
computers met cmos-geheugen) Kunnen de poke-instructies opnemen in het 
INIT-programma (A‚N, 2-1984) 
Let er wel op dat de variabelen A en T ook worden gebruikt voor het assembleren 
wan statements, maar dat functies en statements niet door etkaar in een tabel 
mogen worden geplaatst, Er zijn twee versies van P-FUN, een voor gebruik zonder 
de minirassembler en een met, Bij gebruik van de met-versie moet ook de 
mini-assembler worden veranderd. De wijzigingen in regel 8920-1745 staan los van 
P-FUN en zorgen ervoor dat labelnamen nu ook met kleine letters gekozen Kunnen 
worden. 
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® Jg PROGRAM P-FUN ® 10 PROGRAM P-FUN e 
20 
® 30 REM VERSIE MET MINI-A56 
35 A= 74008KFFOD hd % Benzo ANITASSEMBLER hd 
® 30 2MIFB=O;REN ERRORJWMP OFF Q 50 2U3FB=O;REM ERRORJUMP OFF © 
50 IF !LLOCOMS1B500A2P 67E. 3 or Keet 
© 50 DIN KKS 
® « « 
20 FOR 1=0 TO 10;KK1=999;N. 4, Par PRinT ston. hd 
® 80 P=A;PRINT $21;G05U8 } ì he 
Ì i ê © 90 P=AIPRINT $6;G0SUB à hd 
90 P=A;PRINT $6;GOSUB à 2E ' 
© 100 M3FA=NFF 100 2m3Faatef 
110 243FB=WB3 © 110 >warg=Ke3 . 
© 120 PMIEESD; NIEF=KK0/256 . 15 ZEE; PNGEF=kK0/ 256 e 
130 END 
e ii . 19 
150ar L0at hd 
e 160 :KKO ; PLA; PLA; TAY ;PLA 
160 ;KKO; PLA; PLA; TAY;PLA . MIG :CPY GAD, . 
120STA #90;CPY @N1D3BEA KL I70STA MIO;CPY @NID;BED Kk1 
. 180\P=-Charme . 180\P-Charme 
190JMP LID minre 190TYA;STA N00; JMP HACSA hd 
. ness 200\error 29 
200\error 29 . 210:KK1;LOX eo . 
DIO:KKIGLOX MDO; KI; 
. KI Emis. 220:KK2;LDA 9 1,X4PHA; INX 
Boere anorrne AE, ® _230CPX BKO7:BNE 'KK2;STY 197 e 
. 3 ô 240LDY @MDIGSTY #9I;LDA Ama 
Z40LOY @MOAGSTY HOI;LDA akaa| e ZSOLDY MOASST wao 
250STA #94; JSR HABEA ì 
®__260JSR #A520;BCS KK3 oer MS2BIECS KK . 
e 270 tunction-calt 280onp hanen Cen 
LJ 
doe etsen 290\extra-tunctions hd 
®__soorkkastda w3Fassta K92 e 300:KK3;LDA waFa;sTa 492 e 
BIOJSR KKasLoy eh0s mn wanad 3IOJSR KK4;LDY @ND3;JNP MABB2 
e ï ; 320:KK4;LDY BMOOGSTY W91 
320:KK4;LDY @MDO;STY 091 ® orda dozrer Die . 
; ; 
* SABLOA EEN #92; INY © 340LDA (891 Y;STa M92; INV . 
ji ì 350STY W9I;DEY;LDA (093) ,Y 
® 350STY WI3;DEY;LDA (493 „Y Zeocnr nedrend e AID, 
SoLan EMEAFENE KRS: INY ®_srotba C5ar sont and hi 
® 370LDA (N93 ,Y;CHP Cn Dr 
380BNE KKS;JSR WABEA;JNP KKa| © droeree A ISR VABEAGJMP KK4 e 
EEN en ® 400:KK5;LDY W97;STY MOO 
e Aioome es A SIOJSR HADCÁ; INX; INX; TXS 
bt ®_A20MP wca0 
. 1 REM Wijzig de volgende © 440 RETURN 
2 REM regels in de mini 
| e 3 REM sembler. Bovendien 
4 REM eerst minias vertalen 
© 5 REM voordat P-FUN wordt . 
6 REM vertaald (anders piep) 
® 130 DIN LLC42) „DDC10) „TTC 10) . 
140 FOR I=0 TO'47 
© 310;LL0 hd 
320LDX en00 
® _S20LDA #00;JMP wAC5A; bd 
890AND EHDF;ADC EMAS;CMP BRES 
© 1170:DD1;JSR LL4? 
1200:DD2;DEX;JSR LL47 
® 1745:LL47;STX MOO; 
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Enkele Voorbeelden 





Op onze vorige club-avond was er iemand die het DIN-statement had bedacht om 
data van de B-poort van de VIA toe te Kennen aan een variabele: 


DIN F (F krijgt de waarde van de B-poor 1) 

Mooier is natuurtijk om hiervan een tunctie te maken. Bij deze dus: 
F=iNDATA 

Gok hier Krijgt F de waarde van de B-poort, maar nu is bv. ook mogelijk: 
F=INDATA+46 


Bekijken we de listing van INDATA en disassembleren we de gebruikte subroutine 
op #C97C, dan zien we direct de algemene opbouw van een functie: eerste wordt 
een waarde berekend en die wordt dan op de BASIC-stack gezet (HI6,X R25,K M34,X 
en #A3NO. De basic=stack-pointer, die was opgeslagen op de geheugen locatie 
#04, wordt nog met een verhoogd (we hebben tensiotte tets op de stack gezet) en 
de functie eindigt simpelweg met een RTS-instructie. Slimme mensen zien dat de 
JSR direct gevolgd wordt door een RTS in rege} 119 en dat ze samen Kunnen 
worden vervangen door JMP #C97C. 




















@ 10 PROGRAM INDATA.FN 
20 

® 30 DIM LL! . 
40 P=A;GOSUB à 

e 50 $1="INDATA";TST+LENCT) e 
ko rT=LL0/256: MBO GT? t=LL0;T?2=HB0;T=T+2 . 

© 70 A=P;T!I=A e 
80 END 

hd 90 . 
100al 

@  110:LLO;LDA NBBOD;LDX HO4GJSR HCI7CGRTS . 
1201 

© 130 RETURN . 









Als tweede voorbeeld: BINARY dat gebruikt kan worden om getallen in binaire 
vorm op te geven: 

K=BINARY 1101100 ‚ 
Ook hier zien we weer het verhogen van de stack-ptr en de RTS aan het eind 
(regel 170). De P-Charme subroutine op HASOF verwijdert de eventuele spaties 


tussen BINARY en het getal. 





@ 10 PROGRAM BINARY. FUNCTION . 
20 

e 30 DIM LL10;F.1=0T010;LL1=99S iN. . 
40 P=A;PRINT $21;G0SUB a 

© 50 P=A;PRINT 36;G0SU8 a . 
60 $T="BINARY";T=T+LENCT) 

® 70 ?T=tL0/256! N80; TP I= LO;T?2=H80 Gj T=Tt2 . 
80 A=P;T!1=A . 

. 90 END 
100 

® 110at hl 


120:LL0;JSR HA6OF 


© 130L0X #O4;LDA 2M00 . 

135STA HIE XGSTA M25,XISTA HI4,X;STA MAI,X . 
© naosLListDA (MOS) „Y;SECGSBC ENIOGCMP @ND2:BCS LLZ 

15OROR A;ROL #1á,X;ROL W25,X;ROL HI4,XGROL HA3,X . 
© 16OINY;ENE LLI 

170:LL2;STY #03; INC O4;RTS . 
© 180) 

190 RETURN 
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De functie TIMER tevert als resultaat de stand van eon teller, die elke 0.01 
sec net een wordt verhoogd. Om de teller met een bepaalde waarde te starten 
maken we gebruik van het bijbehorende statement TIMER. Uiteraard hebben we dan 
wel een VIA nodig. vb: 

PROGRAM TIJDLOOP 


TiMERwG start timer met beginwaarde gelijk aan nul 
DO PRINT TINER’ 

UNTIL TIMER) 1960 kant oversen met 10 secooden 

END 


Als de tijd niet precies Klopt mag de waarde van Q in regel 40 van TIMER.STAT 
iets worden aangepast. 





















10 
20 
38 DIM LL! 

40 P2A;PRINT $21;GOSUB à 

50 P=A;PRINT $6;GOSUB a 

60 STa"TIMER*;TaTeLENCT) 

20 2TelL0/256: MGB; TP t=LL0 ;T? 2880 ;TaT+2 
80 axP;T! iz 

90 END 

100 

1i@ar 

120:LLOsSEI;LDY 23; 

330: LLIGLDA NIF2,Y;STA HS2,Y;DEV;BPL LL! 
140LDY @32;CLI; JMP UCIIF 

© 1501 

160 RETURN 


PROGRAM TIMER. FN 








Bis het programma TIMER.STAT gaat het om een statement. Let er nu op dat dit 
woord ‘TIMER’ niet in de tabel met functies Kont, maar in een tabeì met 
statements. De variabele T moet dus eerst weer een nieuwe waarde worden 
gegeven. Eventueel mag ook de variabele A worden aangepast. 

Voor de mensen met BIG BENNY is er nog een bijkomend probleem: in de software 
die bij BIG BENNY hoort zit al een staterent TIME. Als we nu TIMER na TIME in 
de tabel zetten, dan zal P-CHARME die niet Kunnen vinden (wat er gebeurt is dat 
TIME wordt herkend en de tijd wordt afgedrukt, raar bovendien wordt de 
variabele R afgedrukt (TIME gaat verder alsof het een PRINT opdracht betrof). 
Dit 15 echter eenvoudig op te lossen door TIMER eerder in de tabel te plaatsen 
dan TIME, De afkorting TI, geldt dan echter niet meer voor TÌME, maar voor 
TIMER. 

Ket programma Itjkt lang,maar dat komt omdat de helft van het aantal regels 
kommentaar bevat of leeg is. Let wel op de regelnummers in verband met het 
volgende statement. 


oo zi 
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EE 
@ 10 PROGRAM TIMER.STAT mj 
30 
e 40 G=10000;REM 10000=0.01 SEC e 
50 DIM LL20;F.1=0T020;LLI=99PN. 
. 60 P=A;PRINT $21;GOSUB a . 


70 P=A;PRINT $4;GOSUB à 





© 50 ST=*TIMER";T=T+LEN(T e 
90 2T=LL0/2561 NBD; T? i=LL0;T=Te2 

® 120 2T=#80;A=P;T! I=A . 
130 END 

® 140 . 
150at 

© ;60\timer . 
170 

® \gg\disable countdown if timer off ® 


190:LL0;LDA HIF4;BPL LEN 


© 2iovassign time . 
220:LL 1; SSR NCHDE 

@ 230\transfer to time-buffer . 

e 240JSR HCICHISEIGLOX EROS; 
250:LL2;LDA #52,X; STA #3F2,X;DEX;BPL LL2 hd 

e 260JSR LLóé 
270JMP #C55B hed 
280 

® G2o\start timer! . 

. 430\set timer enable byte . 
440 :LL6;STX NIF6; 

e 450\set timerli-latch . 
460LDA @0/256;STA #B8D6;LDA 2Q/256;STA HB807;STA HB80S 

. 470\free-running mode e 
480LDA #B8OB;AND ERF; DRA @#40;STA HB808 

e soo\set interrupt vector . 
500LDA @LL7/256;STA #204;LDA @LL7/256;STA #205 

. 5i0\set interrupt enable register . 
S520LDA @HCO;STA WBBOE 

e S3\clear interrupt disable bit e 
540CLI 

e  550RTS; « 
560 

. 570\interrupt routine . 
SBO LL? 

e 570\test direct-mode and timer enable byte . 
SOOLDA HOSGCMP @HOIGBEG LLP;LDA “F6; BPL LLS 

@ 510LDA HB30D;BPL LL IO . 
430\reset timert interrupt flag 

@ 630:LL12;L0A HBEO4 “ 


650\increment timer 

© &6OINC H3F2;BNE LLB;INC H3F3;BNE LL8; INC #3F4;BNE LL8; INC K3F5e 
670:LLB 

®  750PLA;RTI . 
7é0\disable timer 1/2 interrupts 

© 770:LL9;LDA @RSOGSTA HBBOEGSTA WB8OD ; - . 
780 :LL 10; PLAGRTI 

® 880} . 


829 RETURN 
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In het programma TINER.STAT zijn expres sommige regelnummers overgeslagen. Het 
statement kan namelijk worden uitgebreid met AFTER (een betere naam Kon er niet 
bedacht worden). De rege!nummers van AFTER passen tussen die van TIMER en horen 
daar dus thuis, Wat doet AFTER? 

PROGRAM TIME-OUT 

AFTER 1000 PRINT “IK STOP ER MEE" ;END 

Do 

PRINT "x" 

UNTIL 0 Ni 
Het statement AFTER in dit voorbeeld start een timer met de waarde 1000 en 
siaat de rest van de regel over (de OO-UNTIL loop wordt dus uitgevoerd). De 
timer telt echter elke 0.0t seconde | omlaag en als de timer nul bereikt heeft, 
dan maakt de basic-interpretor eerst het statement af waarmee hij op dat moment 
mee bezig is en springt vervolgens naar het statement AFTER om de rest van de 
regel uit te voeren, Dit zis bv. handig in spelletjes of bij wiskundige 
iteraties, die Je bv. na twee uur rekenen wilt afbreken. 








r 

® 20 REM AFTER,STAT Là 
106 ST="AFTER";T=T+LEN(T) 

. 110 PT=tL3/256: N80; T?I=LL3jT=T42 Ld 
200LDA ENCL;STA NIFS 

® 290\after Ld 
300 

© 3i0\get value and update statement-painter . 
320;LL3;JSR HC7BBIJSR HCAFG 

© 330\store statement-pointer bd 
J40LDA KOSGSTA NIFO;LDA HOGGSTA HIFI 

® 350\transter to count-down bufter hel 
I6OSEI;JSR MCBCAGJSR NCICB;LDX @MD2; 

© _370:LL5;LDA W52,X;STA NIF7,X;DEX;BPL LLS Ld 


380JSR LLé; 


hd 390\skip line and continue basic e 
400LDY NOIJJMP #C575 

© 410 . 

. É20AND HBBOE;AND @#20;BNE LLt1 . 
680N\increment count-down timer 

. 6IOLDA M3FI;CMP @NOI;BEG LL 10 e 
Z00INC MIF7;BNE LLIO;INC WAFB;BNE LLIO;INC #3FS;ENE LL10 

. 710N\time-out detected . 
720\start timer? 

. 730INC M3F9;LDA BHAD;STA WBBOE e 
740LDA @N40;STA NBBDB;LDA @HOO;STA HB809 

. 790Ntimer2 interrupt . 
80O:LL 11; TXA;PHAGTSX;LDA HIOS,X;CMP ENC4GBNE LLIJ 

e BIOLDA #I04,X;CMP GHE4;BEC LLIJ . 
820\end-of-statement detected 

e B30LDA @#20;STA HBBOE;STA HB8OD . 
B4OLDA WIFO;STA WOS;LDA HIFIJJMP HCSE2; 

e 850\start timer2 again . 


860:LL 13;PLA; TAX; LDA @H00;STA #B809; 
e 870LDA #BBOO;EMI LL12;PLA;RTI 
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Fet behulp van deze korte routine kunnen met het gewone “DRAW ’ 
stateaent stippellijnen worden getrokken in mode 4 (of een 
willekeurige andere mode). De lengte van de streepjes waaruit de 
lijn is opgebôuwd is variabel, Deze lengten worden bepaald door 
2M en MP1. Bij MPt=S5 en 2M=3 worden achtereenvolgens bijvoorbeeld 
telkens een wit streepje van lengte 5 stippen en een zwart 
streepje van lengte 5, stippen getrokken. PU en ?v bevatten de 
‘manieren’ waarop de 2 soorten streepjes worden getrokken: i=set, 
B=clear, 2=invert, S=móve. Zo wordt bij de combinatie D=, PV=0 
een ondoorzichtige stippellijn getrokken, en bij Msi, P?V=5 een 
Goorzichtige (telkens een stukje DRAM, dan meer een stukje 
’MGVE' als het ware). Ook is het mogelijk een stippellijn 
‘netjes’ uit de tekening te: verwijderen met ?U=2 (invert), Pyzi 
en voor iedere plotopdracht IT=t (dat is de ‘streepjesteller). 


18 DIMLL 20; FORI=BT03; LL I= FFF; NEXTI 
28 M=#3BO8; =N+2 

38 VeUtij T=Velj F=T+ti 

48 P.$21;G0S.180; GOS. 182; P. $6 








se. 2M=5;M?1=55 'T=i 

&@ 3 '#IFE=1 10; END 
100 
118C:LLB LDYF; DECT; BEGLLS 
128 LDAU, Y; CMPEI; BEBLL 2 
158 STAKSE; JSR#F7 AA 


148 :LL2 RIS 

158 :LL3 LDAM,Y; STAT; INCT 
168 LDA@1 ; SEC; SBCF ; STAF 
178 JMPLLO: IR. 


Demonstratie: 

>RUN 

>CLEAR4; 'HSFE=NSBO9 

>MOVER ,@; DRAW1 GS , 108 {stippellijn} 
>2M=B; DRAW1 02,0 {gewone lijnò 
>oM= 13 M?1=t 3 DRAW20E, 100 {tijne stippels? 


Let op: bij ‘BRMOD' of ‘CLEAR' wordt de platvector ep #SFE 
ingevuld. Daarna dus opnieuw | 14SFE=HSB09. 


Arien B 

ACOS ‘Automatic Cassette Dperatins System is een prosramma Om 
elke zassetterecorder die voorzien iS van „en bandtetier en een 
remote ineut op commando automatisch te taten eeen naar „en 


opsegeven teiterstand. De cassette wordt hier bestuurd vanuit 
poort BB. Dit mas. vOk een andere poort Zijn maar dan Pror CASS’ 
aanpassen. Poort BĲ start en stort Via een driver b.v. 74B5 en Pen 


Sv relais de cassetterescorder via de remote control input. De 
telterstand die bij mijn récorder tijdens het voorvit seoeten niet 
tinear is met de stand van de band heb ik setiniarisserd ìn 


stappen van telkens 58 telpulsen dit IS de data van het Prosramma. 
Voor andere soorten dan de C-6O banden kan de data bepaald Worden 
met het Prosramma 'SYNCRD'. Als het erosramma ’ACOS' wesseschrevan 
is naar b.v.#8208 kan men door ‘ACOS' in te typen vp elk ander 
aares b.v. #2900 een Prosramma van of naar de bard schrijven. 


INTIKKEN EN RUNNEN MAAR 


P.s. wie Kan het prosramma Ze Uitbreiden dat de recorder 
"ind van een wesseschreven of op 


18 

za 

30 

4@ 

5e 

68 

78 

ea 

34 
100 
118 
128 
158 
142 
150 
168 
178 
180 
198 
28 
218 
220 
250 
248 
250 
260 
278 
z80 
290 
505 
518 
520 
238 
z4a 
55e 
ZED 
270 
z80 
338 


PROGRAM ACOS 


REM J.A, KLI JNMAN 
REM STADSKANAAL 


COS1:Z, ;P.$12 

REM INIT STUURPRT B@ 
2#B802= KBEO ZEND 
HBEOO=HEGDOL IFE 


REM CASS AAN/UIT 

PROC CASS 

2HE0=#BEO0EKD1 

XIF?#50=0 THEN? #5800=?#B5ZANKO1 
ELSE BED #BERULHFE 

PEND 


PROC SPATELK 

P, “SPATIEBALK"" 
INK, A 

XIF A=52 PEND 
ELSE SPATELK 
PEND 


PROC BEGIN 
IN, “BEGIN PROGR. “E 
PEND 


REM LOOPTIJD BIJ FF 
PROC TIJD 

H=E/50; C=EXS0 

IF B 10 BEGIN 





RES. 

FOR D=@ TO B; READ KiN 
READ =C+iL-K)/50 
TalBkK+Ls 


DATA ©: 128, 220, 208, 578, 450, 4BU, 525, 570, EAD, E20 
PEND 


400a P. “NIEUWE CASSETTE GEPLAATST? J/N 


418 
AZB 
430 
44 

58 
4E@ 
478 
480 
490 
Sag 
510 
520 


INK. A 

IF A=7B G.t 

XIF A=74 P, “TOETS REW"? 
ELSE G.a 

SPATELK 

CASS: REM AAN 

P, “CASSETTE TERUGGESPOELD 2": 
SPATELK 

CASS: REM UIT 

BEGIN 

IF ECE G.a 

Gez 


S50b IN. “TELLERSTAND “E 


540 


TIJD 





sehaa!d orosranma stopt. 
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op net 
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552 
560: 
570 
580 
see 





658 
5E6Dd 
678 
558 
690 
700 
718 


10 
20 
58 


168 
178 
188 
198 
200 


z10 
220a P. “CASSETTE TERUGGESPDELD? JAN" 
z=30 
240 
250 
260 


BEGIN 
TĲD 
KIF E>F THEN P, “TOETS FF "’;T=T-0 
REM LOOPTIJD BIJ REW 
ELSE P. "TOETS REW "'3T=(F-E MIT 
SPATELK 
CASS; REM AAN 
REM LODPTIJD 
PAUSE _T 
CASS: REM UIT 
BEEP 202, 500 
Pp. “TOETS’ STOP? ** 
SPATELK 
CASS: REM AAN 
Pp, “STARTEN MAAR" 
718=#29 
E 


PROGRAM SYNCRO 
Z.59=0iP. $1E 


REM INIT STUURPRT BO 
HEBDL=HBEDEEHOL 
7HEEUU=? HBEUDERFE 





REM CASS AAN/UIT 

PROC CASS 

2#50=?HBSOULEDL 

XIF?#50=0 THEN HED? HECOONRDL 
ELSE ?#H000=?#BEDOR HEE 

PEND 


PROC SPATBEK 
P. "SPATIEBALK"* 





ELSE SPATELK 
PEND 


INK. A 

IF A=74 Gb 

XIE A=78 P. "TOETS" REN’ *" 

ELSE Ga 

SPATELK 

CASS5:REM AAN 

p. “ALS CASETTE TERUGESPOELD IS “ 
SPATBLK 

CASS:REM UIT 


520o P. #12 





P. “DRUK TELKENS ALS DE TELLER * 

P. "EEN VEELVOUD VAN Sg AANGEEFT *' 
p‚ “DE SPATIEBALK IN!" 

Pp, "TELLER RESETTEN"' 
Pp, “TOETS TEEN! 
SPATBLK 

CASS:REM AAN 

Pp. "DATA " 
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4D: Ka 
418 PA, 3 
420 B=B+1 
GEO IF A32 P.B',r 
440 IF BES E. 
458 Gc 
Se 
LOREM MATH 
ZOREM KAN JE MEE REKENEN '! 
ZOREM OOK IN HEX: MATH& 
ADREM F.LE BLANC 
SOIN. "ROUTINE OP: "@ 
SODIMLL 1D 
70F. N=UTO1DSLLN=DEN. :P. $21 
EOF, N=ATD1 5 P=05C 





3% LDACS) , Y3 CMPARÈEI ENELL 1 
129 LDAALLZX25E:STAS 

118 LDAALLZ/ 25E: STAE 

120 ENE LLZ 

15O: Li ;LDAALLOAE5E: STAS 





158 LDAALL2/ 2565; STAE 
1659 LDYa8: 4 
178:LL2: JMP 
130: LLO: HELL LL2+53; N. 

DEP="D=0DOFIN. XA:P. SRB, SHIAD = :FP. XA’ SU. O0" 
2196CP+39) = O5: DOFIN. XAIP. SE, S#I4D =H GP, 8&KLA' 5U. O0" 















2SOP. SE"ROUTINE DP: #" ADSR" EPAR GE. 
Ne 
18 PROGRAM RACERUPS 
ZON=B: O=D; VeDt WD: X=9 
FOU=#EDED: IKEL =P. $15 
GOFORT=BTOISEP. $10:N 





1201FX) 1EORX (0: =Vi XXe 
150P,'sPIX=AEPP AKA za 
FR, 3205 PILA, R‚ Al t+K+E) =Z 








O=0+1 






Welt IEN 
zWeWt ls IFM) 





1E8U=Ut NW 
178IF2U= 24: BE. 4D, 73 N=N+1 


1801F?U 





198U=KFF GG. 5 
'U=#DODO1 BE 









ORT=1 TOSE SBE, CA,R. 256), 53 
aFORT=10TO2S5S, 103 BE. T, SIN. 
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gebru 


18 
28 
38 
4À 
58 
E28 
78 
58 
ge 
108 
118 
128 
138 
148 
158 
158 
178 
189 
198 
208 
218 
220 
258 
248 
250 
zE8 
278 
280 
298 
302 
218 
ied 
330 
548 
250 
358 
370 
580 
98 
408 
418 
420 
458 
440 


ikt zijn. 


REM FAST RAM-TEST 

REM W. ERNST; ECHT 

DIM LLCIGFOR N= TO 1O3LLEND=-IFNEXT N 

INPUT"ASSEMBLE TO"AsFOR N=l TO 2:P=AiP. 21E 
JSRHFDES:LDADD: STARS: JSRHF7D1 IP. S6 

p=" RAM-TEST"sP=P+LEN(P) SP. $215E 

NOP s JSR#CDS4 3 JSRHCDS4 4 JERHF7D1 5 JHP, S5 

sp="START ADDRESS as PeP+LEN(P) iP. 2130 

Ser DAOREF: JSRRCDOF +LDADO: STAT: STAT JERKCICHTLDYAAAFLDXAL 
JSR#CECDIJSRHF7D15 HP. $6 

sp=" END ADDRESS wyp=P+LEN(P) iP. $213P. $213E 

AOP :LDAGREF s JSRECDOF ;LDAADI STAS STAF? JSRHCSCHILDVARAC HL DAAT 
NORKESCD Ss JSRKCDSÁ ; LDAKAA: STARRE: LDAKAB: STAKAF s JSRAFTDILI A 
$P" PHASE 1°;P=P+LENCP) 3E 

NOP; JSR#CDS4t JSRRCD54 3 INC#AC 1 LDA#ACs BNE LLS; INCHAD 

LLS \ FILL WITH '@' 

LDYAD:LDAIO: STALHAA) » YE JSR LLEIJSR LLS:LDA#RIGBEG LLD 

\ CHECK IF @ 

LDAHAE s STAKAA: LDAKAF : STA#AB: LDAAO: STAKAS 

sLLi LDYAD:LDACHAA) , Y: CMPAO: BEG LL2IJSR LL1D 

:LLE JSR LLGIJSR LLE:LDA#ASS BER LL1 

ISR#CD54 s JSR&F7DL TA 

$P="PHASE 2" 4P=PALEN(PD 30 

NOP; JSR#CDS54 3 JSRECDS4 

\ FILL WITH T#FF" 

(DARGE s STA#AAFLDAKAF STARR: LDAAD: STAHAS 

ze CDYaD: LDAARFF : STALHAA) » 7 JSR LLG:JSR LLB 

LDA#ASIBEG LLS 

\ CHECK IF #FF 

L DARE: STA#RA LDAKAF 3 STAHRB; LDADD: STAKAS 

alb LDYa®:LDACHAA) , Ys CMPARFF s BEG LLSIJSR LL1S 

:LLS JSR LLG:JSR LLS: LDA#AI BER LL4: JSRÉEDS4 

JSRHF7DL 3: SP="TEST COMPLETE": P=P+LEN (PD 3E NOP; JMPECDS4 
:LLE6 \ INC ADDRESS 

INC#AA: LDA#AA: BNE LL7 3 INC#AB 

:LL7 RTS 

:LLE \ CHECK IF END 

LDA#AA: CMPHAC 5 BNE LLS; LDAHAB: CMPÉAD: ENE LLS: LDAA1 :STAHAS 
sLLS RTS 

zLL1g \ ERROR ROUTINE 

JSR#CDS4 ; JERHF7D1 3 

$P="ERROR AT #iPeP+LEN(PD 3E 

Deen Sper aeziLDAAAAS JSRHFBLZ: JSRAF TED: LDAARAT JSRAPFA 
ORE rEDIL DAAT: JSRAFFF 3 LDVAOLDACHAA) » 5 MPNFBOZ 
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